Задание 6 Урок 15. Одномерные массивы

Урок 15. Одномерные массивы

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

var
  a: array [1..3] of integer;
  i,x: integer;
begin
  i:=1;
  repeat
    writeln('write your num');
    read(x);
    if (x < 0) and (x mod 2 = 0) then  //нечетные отрицательные.
      begin
        a[i]:=x;
        i:=i+1;
      end;
  until(i=4);
  writeln('here is array of yours: ');
  for i:=1 to high(a) do
    write(a[i], ' ');
  readln();
  readln();
end.

//write your num
//1
//write your num
//-1
//write your num
//-2
//write your num
//-4
//write your num
//-8
//here is array of yours:
//-2 -4 -8