Помогите, составить программу рост и вес среднестатистического учащегося в Pascal ABC

Question

Помогите, составить программу рост и вес среднестатистического учащегося в
Pascal ABC

Answer 1

Const n=3; //к-во учеников
var i:integer;
sr,sw:real;
r:array[1..n] of integer;
w:array[1..n] of integer;
begin
sr:=0;
sw:=0;
for i:=1 to n do
begin
write('Рост ',i,' ученика: ');
readln(r[i]);
sr:=sr+r[i];
write('Вес ',i,' ученика: ');
readln(w[i]);
sw:=sw+w[i];
end;
sr:=sr/n;
sw:=sw/n;
writeln;
writeln('Средний рост ученика: ',sr:5:2);
writeln('Средний вес ученика: ',sw:5:2);
end.

Comments

Пожалуйста, указывайте версию языка Паскаль, если программа не может быть выполнена в любой из его версий. В вашем случае комментарии // не являются допустимыми во всех версиях языка.

---

Лучше всего в первой строке пишите что-то типа // Pascal ABC

---

Окей, понял, спасибо.

---

Школьники пытаются запускать программы, копируя их отсюда, а потом, если компилятор выдает ошибку, помечают решение неверным.