pascal массив

[Fornarina]

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

[начинающий кодер]

program sred666;
uses crt;
var i,k,n:integer;
sred:real;
 a:array[1..100] of integer;
 begin
clrscr; randomize;
 writeln('vvedite n ');
 readln(n);
 sred:=0;k:=0;
 for i:=1 to n do begin
 a[i]:=random(100);
 sred:=sred+a[i];
 write (' a[',i,']=',a[i]);
 end;
 sred:=sred/n;
 for i:=1 to n do
 if a[i] >sred then inc(k);
writeln('kol-vo=',k);
readln;
end.

[Fornarina]

Сообщение от начинающий кодер

program sred666;
uses crt;
var i,k,n:integer;
sred:real;
 a:array[1..100] of integer;
 begin
clrscr; randomize;
 writeln('vvedite n ');
 readln(n);
 sred:=0;k:=0;
 for i:=1 to n do begin
 a[i]:=random(100);
 sred:=sred+a[i];
 write (' a[',i,']=',a[i]);
 end;
 sred:=sred/n;
 for i:=1 to n do
 if a[i] >sred then inc(k);
writeln('kol-vo=',k);
readln;
end.

спасибо огромное=)

[capta1n]

ну вот - отзыв не зря я тебе оставил: отзывы оставляю только тем, кто этого действительно заслуживает своей работой