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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.