Дана последовательность целых чисел а1, а2, а3,...,аn. Создать массив из четных чисел этой последовательности. Если таких чисел нет, то вывести сообщение об этом факте


На языке Паскаль. Буду очень признательна

if j>0 then for i:=1 to j do write(b[i],' ')else write('Чётных чисел нет.');end.Это в конце добавишь вместо 3 последних строк.

Program arr;

const

maxn=10;

var

a,b: array[1..maxn] of integer;

N,i,j: integer;

begin

readln(N);

//заполнение массива

for i:=1 to N do

  read(a[i]);

//основная программа

for i:=1 to N do

   if a[i] mod 2 = 0 then

     begin

     j:=j+1;

     b[j]:=a[i];

  end;

for i:=1 to j do

write(b[i],' ');

end.

var

m:array [1..10000] of integer;

a,n,i,j:integer;

begin

 writeln('Введите n:');

 readln(n);

 j:=0;

 writeln('Введите последовательность чисел:');

 for i:=1 to n do

 begin

 readln(a);

 if (a mod 2)<>0 then begin j:=j+1; m[j]:=a; end;  

 end;

 if j=0 then writeln ('Нечетных чисел нет в данной последовательности.')

 else  

 begin

 writeln ('Нечетные числа в данной последовательности:');

 for i:=1 to j do

 write(m[i],' ');

 writeln;

 end;

end