Question

вписать фамилию и оценку, зависимо от того сколько ты вводил в string и посчитать средний балл всех учеников из всех учеников, pascal ПОМОГИТЕ!!!!!!!

Answer 1

var 
surname:string;
score,sum:double;
n:integer;
begin
writeln('Введите количество учащихся');
read(n);
for var i:=1 to n do begin
write('Введите фамилию ' + i +' ученика: ');
readln(surname);
readln;
write('Введите балл: ');
read(score);
sum:= sum + score;
end;
write('Средний балл всех учеников = ' + sum/n);
end.