Question

Известны оценки по алгебре каждого ученика класса. Найти среднюю оценку.

Answer 1

Var mas:array [1..30] of integer;
i,sum:integer;
Begin 
   write('Введите оценки:  '); 
     for i:=1 to 30 do readln(mas[i]); 
        for i:=1 to 30 do sum:=sum+mas[i];
Writeln('Средний балл: ',sum/30);
End.