Question

Не работает программа на Pascal. Почему? program z;var n,i,a,b,r: integer;begina:=0;b:=0;writeln('Введите число учеников');readln(n);for i:=0 to n dowhile i<>n dobeginwriteln('Введите рост ученика');readln(r[i]);if r[i]>170 then inc(a) else inc(b);end;writeln('Подходят ',a,'учеников');writeln('Неподходят ',b,'учеников');end.

Answer 1

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

Answer 2

Программа на Pascal содержит несколько ошибок. Вот исправленный вариант:

cssCopy code
program z;
var
  n, i, a, b: integer;
  r: array [1..100] of integer; // Объявление массива r с достаточным размером

begin
  a := 0;
  b := 0;
  writeln('Введите число учеников');
  readln(n);
  
  writeln('Введите рост учеников');
  for i := 1 to n do // Цикл должен быть от 1 до n, а не от 0 до n
  begin
    readln(r[i]);
    if r[i] > 170 then
      inc(a)
    else
      inc(b);
  end;

  writeln('Подходят ', a, ' учеников');
  writeln('Неподходят ', b, ' учеников');
  
  readln; // Чтобы программа не закрывалась сразу после выполнения
end.

Ошибки в исходном коде:

1. Неверное объявление массива r. Вместо var n, i, a, b, r: integer нужно использовать var r: array [1..100] of integer, чтобы создать массив роста учеников с достаточным размером.
2. Цикл for i:=0 to n do while i<>n do не имеет смысла и содержит синтаксическую ошибку. Замените его на for i := 1 to n do.
3. Используйте readln(r[i]) для чтения значения роста каждого ученика.
4. Изменил условие в проверке роста: if r[i] > 170 then inc(a).

Теперь программа должна работать правильно и подсчитывать количество учеников, подходящих и неподходящих по росту.