вписать фамилию и оценку, зависимо от того сколько ты вводил в string и посчитать средний балл всех учеников из всех учеников, pascal ПОМОГИТЕ!!!!!!!
Answers & Comments
chacecrawford1p69i4o
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.
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.