Question

Составить алгоритм определения среднего балла аттестата

Answer 1

Средний балл аттестата  = cумма всех полученных оценок разделить
число предметов.

Answer 2

Program SrBall;
var S, x, n, i:integer;
begin
write('Сколько аттестатов? '); readln(n);
for i:=1 to n do
 begin
 write('введи количество баллов ',i,' аттестата: ');
 readln(x);
 S:=S+x;
 end;
writeln('средний балл = ', S/n);
end.