ovo sam uspeo da uradim ali nije dobro :
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.
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.
pa ako bi neko bio ljubazan da pomogne