Работа с массивом, Pascal

[Axe..94]

Доброго времени суток программисты. У меня к вам огоромнейшея просьба!!!
Мне необходимо написать такую вот прогу:
ВВОД ЦЕЛОЧИСЛЕННОГО ОДНОМЕРНОГО МАССИВА, ПОИСК В НЁМ ЧЁТНЫХ ЧИСЕЛ И ВЫВОД ПОЛУЧЕННОГО РЕЗУЛЬТАТА В ВИДЕ МАССИВА ЧЁТНЫХ ЧИСЕЛ(на языке Pascal).
Заранее огромнейшее СПАСИБО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[F-R-O-S-T]

Код: Выделить всё

const n=10;
type arr=array[0..n] of integer;
var i,j:byte;
    a,b:arr;
begin
 for i:=0 to n do
 begin
  write('A[',i,']= ');
  readln(a[i]);
 end;
 j:=0;
 for i:=0 to n do
  if not odd(a[i]) then begin b[j] := a[i]; inc(j) end;
  
 for i:=0 to j-1 do writeln('B[',i,']= ',b[i]);
readln   
end.

[Axe..94]

Огромное тебе спасибо, F-R-O-S-T!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Я два месяца не мог это написать. Ещё раз спасибо.

[F-R-O-S-T]

Да не за что. Удачи тебе .