Pascal:
Var a,b,c,d:integer;
e:real;
begin
write('введите кол-во учеников -> ');
Readln(a);
For b:=1 to a do
Begin
Write('оценка ',b,' ученика');
Readln(c);
d:=d+c;
End;
E:=d/a;
Writeln('средний балл в классе', e);
end.
двести пятьдесят шесть секунд
300*1024/192 = 1600 с
1600*256/1024= 400кБайт