Урок 15. Задача 6.

Урок 15. Задача 6.

Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.

type ar = array[1..3] of integer;
var i, a, b : integer;
    Arr : ar;
begin
  a := 1; // переменная счетчика
  b := 0; // переменная ввода
  while a < 4 do
  begin
    write('Enter an integer : ');
    readln(b);
    if (b mod 2 = 0) and (b < 0)then
    begin
      Arr[a] := b;  // инициализация
      a := a + 1;  // счетчик выхода из цикла
    end;
  end;
  for i := low(Arr) to high(Arr) do  // вывод массива
    write(Arr[i], ' ');
  readln();
end.