Массивы

[~@FOREVER@~]

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

[~@FOREVER@~]

Помогите, знающие!

[Hacker19_90]

наработки есть?

[~@FOREVER@~]

нет нету ( мне нужно без array

[Necare]

var
massbich : array[1..255] of integer;
sum,i,n,count : integer;
srar : real;
begin
count:=0;
writeln('Insert the number of elements');
readln(n);
writeln('Input the elements of massiv');
for i:=1 to n do begin
readln(massbich[i]);
sum:=sum+massbich[i];
end;
srar:=sum/n;
for i:=1 to n do begin
if srar<massbich[i] then count:=count + 1;
end;
writeln('The number of elements:',count);
readln;
end.

Без array не сделаешь. Можно создать кучу переменных и каждой присвоить заначение, а потом сравнивать, но это немного бредово.

[Zer0]

количества элементов массива

мне нужно без array

А такое вообще бывает? Я конечно понимаю что есть списки и прочие структуры.... но массив - он и в Африке массив