Урок 15 Задача 7

Урок 15 Задача 7:

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

var
  m : array [1..3] of integer;
  a, i: integer;
begin
   i :=low(m);                  // начальное значение счетчика цикла
   while (i <= high(m)) do      // обойдем массив через while
   begin
     write('Введите число: ');
     readln(a);                 // считываем введенное число
     if (a mod 2 = -1) then     // проверяем на отрицательность и нечетность
     begin
       m[i]:=a;                 // если условие верно, присваиваем значение очередному эл-ту массива
       i := i+1;                // увеличиваем счетчик цикла на 1
     end;
   end;
     write ('Ответ: ');
   for i:=low(m) to high(m) do  // обходим массив для вывода его значений
     write (m[i], ' ');
   readln();
end.

Вывод в консоли:

Введите число: 5
Введите число: -1
Введите число: -4
Введите число: -3
Введите число: -7
Ответ: -1 -3 -7