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

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

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

type
  myArr = array[1..3] of integer;
var
  a: myArr;
  i, N: integer;
begin
   i := 1;
   while (i < 4) do
     begin
       writeln('vvedite element massiva');
       readln(N);
       if (N < 0) AND (N mod 2 = -1) then
         begin
           a[i] := N;
           i := i + 1;
         end;
     end;
   writeln(a[1],' ',a[2],' ',a[3]);

   readln();
end.