Помогите, пожалуйста с Pascal ! Задание: Массив А задается с клавиатуры. Создайте массив...

Question

Помогите, пожалуйста с Pascal !
Задание:
Массив А задается с клавиатуры.
Создайте массив Б состоящий из четных чисел массива А.


(ОТВЕЧУ ВЗАИМНОЙ ПОМОЩЬЮ ПО ДРУГИМ ПРЕДМЕТАМ ! ЗАРАНЕЕ СПАСИБО !!! P.S. ребята, пожалуйста, не отвечайте ради прикола... дело серьёзное ..... )

Answer 1

Const
n=10;
var
a,b:array[1..n]of integer;
i,k:integer;
begin
    for i:=1 to n do
        read(a[i]);
               for i:=1 to n do
                      if a[i] mod 2=0 then
                            begin
                                 k:=k+1;
                                 b[k]:=a[i];
                            end;
writeln;
             for i:=1 to k do
                   write(b[i]:4);
end.