Информатика.Массивы Массив A вводится с клавиатуры.Сформировать новый массив B,состоящий...

Question

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

Answer 1

Const n=10;
var a,b:array[1..n] of integer;
i,j:integer;
begin
writeln('Введите ',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 чисел
45
65
12
78
14
47
16
62
42
38
Полученный массив:
12 78 14 16 62 42 38