Массив A вводится с клавиатуры. Сформировать новый массив B, состоящий из чётных элементов массива A. Элементы вводятся с клавиатуры.

Размер произвольный.

var

i, n: integer;

a: array [ 1 ... 1000 ] of integer;

b: array [ 1 ... 1000 ] of integer;

begin

write ('Введите размер массива (макс. 1000) : ') ;

readln (n) ;

writeln () ;

for i : = 1 to n do

begin

writeln ('Введите эл. массива A[', i, ']') ;

readln (a[i]) ;

if a[i] mod 2 = 0 then b[i] : = a[i]

end;

writeln () ;

writeln ('Эл. массива A') ;

for i : = 1 to n do

write (a[i], ' ') ;

writeln () ;

writeln () ;

writeln ('Эл. массива B (чётные) ') ;

for i : = 1 to n do

if (b[i] mod 2 = 0) and (b[i] 0) then write (b[i], ' ')

end.