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. Если с ответом все норм, отметь решение как лучшее :)
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. Если с ответом все норм, отметь решение как лучшее :)