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.
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.