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

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

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

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