вписать фамилию и оценку, зависимо от того сколько ты вводил в string и посчитать средний балл всех учеников из всех учеников, pascal ПОМОГИТЕ!!!!!!!
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.