Задание

Задача. Известны оценки по физике каждого из 20 учеников класса. Определить среднюю оценку.

Var S,i, ocenka: integer;

Begin

S:=0;

For i:=1 to 20 do

Begin

Read ( ocenka );

S:=S+ ocenka;

end;

Write ( S/20:5:2)

end.