Известны оценки по физике каждого из 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. Если с ответом все норм, отметь решение как лучшее :)