Question

Составьте программу, которая вычисляет средний балл по информатике в классе. Количество учеников и четвертные оценки каждого из них введите с клавиатуры

Answer 1

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.