Урок 15 (Решенная задача 4)

Урок 15 (Рещенная задача номер 4)

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

var a : array[1..3] of integer;
  x, i, c : integer;

begin
  c := 1;
  while (a[3] >= 0) do
  begin
    writeln('vvedite cislo');
    readln(x);
    if (x < 0) and ((x mod 2) = 1) or ((x mod 2) = -1) then
      begin
        a[c] := x;
        c := c + 1;
      end;
  end;
  for i:= 1 to 3 do
    writeln(a[i]);
end.