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

const n=10;var a,b:array[1..n] of integer;i,j:integer;beginwriteln('Введите ',n,' чисел');for i:=1 to n do readln(a[i]);j:=0;for i:=1 to n do if a[i] mod 2 = 0 then begin j:=j+1; b[j]:=a[i]; end;writeln('Полученный массив:');for i:=1 to j do write(b[i],' ');writeln;end.Пример:Введите 10 чисел45651278144716624238Полученный массив:12 78 14 16 62 42 38