Сделать кусочек программы. Срочно!!!!
Вычеслить количество элементов, больше среднего арифметического значения элементов массива.

Если нужно на Pascal, который учат в школе, то вот:

const N = 10;

var

a: array[1..N] of integer;

i: byte;

sred: real;

suma: integer;

begin

randomize;

for i:=1 to N do a[i]:=random(50)+1;

sum := 0;

for i:=1 to N do suma := sum + a[i];

sred := suma/N;

for i:=1 to N do write(a[i]:3);

writeln;

writeln('Среднее значение: ',sred:4:2);

for i:=1 to N do if a[i]>sred then write(a[i]:3);

writeln;

end.