Code:

program blabla;
var a:array[1..100] of integer;
n,i,b,s:integer;
begin
writeln('Unesite broj ucenika');
readln(n);
s:=0;      (*ovo je zbir visina*)
b:=0;     (* ovo je broj nadprosecno visokih ucenika*)
for i:=1 to n do
writeln ('A[',i,']=');
readln(a[i]);
s:=s+a[i];
if s/i < a[i] then
b:=b+1;
end;
writeln('broj ucenika sa nadprosecnom visinom je  ', b);
end.