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

Question

Информатика

Толяха

9 сентября, 01:21

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

+4

Ответы (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.