тема лабораторной работы по обработке одномерных массивов

[desu_desu]

Дан массив B(N).Найти количество элементов,больших среднего арифметического всех элементов

[Вадим Мошев]

1. Найти среднее арифметическое всех элементов массива.
2. В цикле для массива сделать так: если очередной элемент массива больше этого среднего арифметического, то прибавить к счётчику элементов,больших среднего арифметического всех элементов

[desu_desu]

я сому программу написать не могу

[Mad_Cat]

я сому программу написать не могу

А зачем рыбе программа?
А серьезно : Язык программирования какой?

[desu_desu]

турбо паскаль

[Mad_Cat]

var b:array[1..100] of real;
i,n,k:integer;
s:real;
begin
readln(n);
s:=0;
for i:=1 to n do begin
readln(b[i]);
s:=s+b[i];
end;
s:=s/n;
k:=0;
for i:=1 to n do begin
if b[i]>s then inc(k);
write(b[i],' ');
end;
writeln(k); 
readln;
end.

[desu_desu]

большое спасибо