var a:array [1..50] of integer;
i,n:integer;
k,s:real;
begin
writeln ('Введите кол-во учеников');
readln (n);
randomize;
k:=0;
s:=0;
for i:=1 to n do 
a[i]:=random(5)+1;
writeln ('Оценки учеников');
for i:=1 to n do  writeln ('Ученик[',i,'] ','оценка ',a[i]);
for i:=1 to n do 
k:=k+a[i];
k:=k/n;
for i:=1 to n do 
if a[i]>k then 
s:=s+1;
writeln ('Средняя оценка в классе:',k);
writeln ('Число учеников учащихся выше среднего:',s);
end.