Задан массив А (10). Вставить число х в массив целых чисел после всех нечетных элементов.

Question

Информатика

Маврикий

17 июля, 05:02

Задан массив А (10). Вставить число х в массив целых чисел после всех нечетных элементов.

+3

Ответы (1)

Знаете ответ на вопрос?

Сергеич · Answer 1

Var a:array[1 ... 11] of integer;

i, t, x:integer;

begin

t:=0;

for i:=1 to 10 do begin

read (a[i]) ;

if odd (a[i]) then t:=i;

end;

readln (x) ;

for i:=11 downto t+1 do

if i>=2 then a[i]:=a[i-1];

a[t+1]:=x;

for i:=1 to 11 do

write (a[i],' ') ;

end.