Предмет: Информатика,
автор: 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