Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из четных элементов массива А. Элементы вводятся с
клавиатуры. Размер n.
Kol – количество элементов в последовательности В
К – номер элемента последовательности В
Program newmasiv;
Var a: array[1..100] of integer;
b: array[1..100] of integer;
kol, n, i, k: integer;
Begin
kol:=0; k:=0;
write ('n='); readln (n);
For i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln (a[i]);
if a[i] mod 2=0 then
begin
k:=k+1; b[k]:=a[i]; kol:=kol+1;
end;
end;
if kol=0 then writeln(‘четных элементов нет’) else
for k:=1 to kol do write(‘b[‘,k,’]=’,b[k]);
end;

Abdul18    2   25.11.2020 14:46    13