Предмет: Информатика, автор: lipko03

Не работает программа на Pascal. Почему?

program z;

var n,i,a,b,r: integer;

begin

a:=0;

b:=0;

writeln('Введите число учеников');

readln(n);

for i:=0 to n do

while i<>n do

begin

writeln('Введите рост ученика');

readln(r[i]);

if r[i]>170 then inc(a) else inc(b);

end;

writeln('Подходят ',a,'учеников');

writeln('Неподходят ',b,'учеников');

end.

Ответы

Автор ответа: Аноним
0

Отсутствует массив как таковой


Похожие вопросы
Предмет: Английский язык, автор: diana02042020
Предмет: Алгебра, автор: ClashOfClans8TX
Предмет: Математика, автор: yuikatosik
Предмет: Алгебра, автор: rybalkaanuta
Предмет: Математика, автор: walenden