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