Проанализируй диаграмму. Запиши данные в таблицу:«Факторы, влияющие на здоровье человека».

1. делим a и b на 33.

2. округляем вверх (до следующего целого)

3. перемножаем округлённые числа.

4. делим на n.

5. округляем вверх.

формулой: x = [([a/33]+1)*( [b/33]+1) / n]   + 1

где [y] - целая часть числа y. 

program num1; uses crt; var x: array[1..10] of real; max: real; i : integer; begin clrscr; for i: =1 to 10 do begin write('x[',i,']='); readln(x[i]) end; max: =x[1]; for i: =1 to 10 do if x[i]> =max then max: =x[i]; writeln('max=',max: 3: 1); for i: =1 to 10 do if x[i]=max then begin x[i]: =0; break end; for i: =1 to 10 do write(' *',x[i]: 3: 1,'* '); end.

нарисовать отрезок

нарисовать два круга с радиусами равными длине отрезка на концах отрезка

взять одну из точек пересечения кругов

соеденить точку с концами отрезка

var a: array [1..10] of integer;

      i: integer;

begin

  for i: =1 to 10 do begin

  readln(a[i]);

  if a[i]< 0 then a[i]: =abs(a[i]);

  writeln(a[i]);

  end;

end.