var x:integer;
s:real;
begin
s:=0;
Writeln ('Введите оценки 20 учеников');
for var i:=1 to 20 do begin
readln (x);
s:=s+x;
end;
writeln ('Cредняя оценка: ', s/20)
end.
p.s. Если с ответом все норм, отметь решение как лучшее :)
Поделитесь своими знаниями, ответьте на вопрос:
Известны оценки по физике каждого из 20 учеников класса. Определить среднюю оценку. Решить задачу используя циклическую конструкцию for.
var x:integer;
s:real;
begin
s:=0;
Writeln ('Введите оценки 20 учеников');
for var i:=1 to 20 do begin
readln (x);
s:=s+x;
end;
writeln ('Cредняя оценка: ', s/20)
end.
p.s. Если с ответом все норм, отметь решение как лучшее :)