Известны оценки по алгебре каждого ученика класса. Найти среднюю оценку.
Известны оценки по алгебре каждого ученика класса. Найти среднюю оценку.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы