Надо.1)найдите правильную на языке паскаль запись выражения 19(16, 3+7, 7а)19(16.3+7.7), в)19*(16.3+7.7).д)19(16, 3+7.7).с)19*(16.3+7.7).2)найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)вычислите длину окружности и площадь круга одного и того же заданного радиуса r.4)даны два числа.найдите среднее арифметическое кубов этих чисел и среденее модулей этих чисел.два последних номера там нужно написать программу, программу присылать на листочке

В1-ом одинаковые в и с они правильные. во 2-ом правильно д в 3-ем p: = 2 умножить на число p и на радиус s: =число p умножить на радиус в квадрате p: =2*3.14*4 s: =3.14*r*r

Const       auto = false; var       a: array[1..5000]of integer;       n, i, k, min: integer; begin       if auto then begin               n : = random(100);               for i : = 1 to n do                       a[i] : = random(200);       end       else begin               readln(n);               for i : = 1 to n do                       read(a[i]);       end;             min : = a[1];       for i : = 1 to n do       begin               if min > a[i] then min : = a[i];               if a[i] > 10.5 then k : = k + 1;       end;             writeln(min, ' ', k); end.

Const       auto = true; var       a: array[1..100, 1..100]of real;       b: array[1..100]of real;       n, m, j, i: integer;       gmax, min, max: real; begin       read(n, m);       for i : = 1 to n do               for j : = 1 to m do               begin                       if auto then                               a[i, j] : = random(100)                       else                                                    read(a[i, j]);                                                     if abs(gmax) < abs(a[i, j]) then                               gmax : = a[i, j];               end;             for i : = 1 to n do       begin               min : = a[i, 1] / gmax;               max : = a[i, 1] / gmax;                             for j : = 1 to m do               begin                       a[i, j] : = a[i, j] / gmax;                       if min > a[i, j] then min : = a[i, j];                       if max < a[i, j] then max : = a[i, j];                                             write(a[i, j]: 5: 2, ' ');               end;                             b[i] : = max - min;               writeln(' => ', b[i]: 5: 2);       end; end.