Плз с 1)посчитать ссреднее арифметическое элементов массива. 2) посчитать сумму x+x^2+x^3+ 3)в массиве определить кол-во элементов не больше заданного c

1) 

const n=10; var a: array [1..n] of integer; i,max: integer; begin write('введите массив: '); for i: =1 to n do read(a[i]); readln; max: =a[1]; for i: =1 to n do if a[i]> max then max: =a[i]; writeln('максимальный элемент - ',max); readln; end.2)   3) 

const n = 100; var arr: array[1..n] of integer; i, m, qty: byte; begin write('количество элементов массива: '); readln(m); write('элементы массива через пробел: '); for i: =1 to m do read(arr[i]); readln; qty : = 0; i : = 2; while i < m do if (arr[i] > arr[i-1]) and (arr[i] > arr[i+1]) then begin qty : = qty + 1; i : = i + 2 end else i : = i + 1; writeln('кол-во элементов, которые больше соседей: ', qty); readln; end.вроде как-то так

 

 

А)  100010,011101(2)  = 22,74(16) 0010  0010,  0111 0100     2            2                7          4 б)  1111000000,101(2)  =  3c0,a  (16) 0011  1100 0000,  1010     3            c            0              a в)  1100011,11(2)  =  63,c (16) 0110  0011,  1100     6              3            c г)  100011,111(2)  =  23,e (16) 0010  0011  1110     2              3          e

Var n, k: integer; t, v, p : real; begin       k: =0;       for n : = 100 to 999 do       begin               p: = n div 100;               v : = (n div 10)mod 10;               t : = n mod 10;               if (v = 2*p) and (t = 2*v) then                       k: =k+1    ;           end;           print(k); end.