Question

Написать программу в Паскале, которая считает среднюю успеваемость учащегося. Для расчета у пользователя спрашивают: 1. Введите оценку по математике/русскому/физике/химии/биологии.

Answer 1

Var a, b, c, d, e: byte;
  ArithMean: real;
begin
write('Введите оценку по математике: '); readln(a);
write('Введите оценку по русскому языку: '); readln(b);
write('Введите оценку по физике: '); readln(c);
write('Введите оценку по химии: '); readln(d);
write('Введите оценку по биологии: '); readln(e);
ArithMean := (a+b+c+d+e)/5;
writeln('Средняя балл = ', ArithMean);
end.