Дан массив целых чисел. Переписать его нечётные элемнты в другой массив такого же размера, расположив элементы подряд с начала массива.

Question

Информатика

Торя

13 февраля, 22:32

Дан массив целых чисел. Переписать его нечётные элемнты в другой массив такого же размера, расположив элементы подряд с начала массива.

+5

Ответы (1)

Знаете ответ?

Маркеллина · Answer 1

Program z10;

var a, b:array[1 ... 1000]of longint;

n, i, k:longint;

begin

read (n) ;

for i:=1 to n do

begin

read (a[i]) ;

if (a[i] mod 2=1) then begin

k:=k+1;

b[k]:=a[i];

end;

end;

for i:=1 to k do

begin

write (b[i],' ') ;

end;

end.