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

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

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

var
   arr: array [1..3] of integer;
   count, a: integer;
begin
  count:= 1;
  while (count <= 3) do
    begin
      writeln('Vvedite celoe chislo: ');
      readln(a);
      if (a < 0) and ((a mod 2) <> 0) then
        begin
           arr[count]:= a;
           count:= count + 1;
        end;
    end;
  for count:= low(arr) to high(arr) do
   writeln('i = ', arr[count]);
  readln();
end.