В одномерном массиве а = (а1, а2, ... аn) отрицательные элементы, имеющие четный порядковый номер, переписать в начало массива.

Question

Информатика

Сатира

23 июля, 18:19

В одномерном массиве а = (а1, а2, ... аn) отрицательные элементы, имеющие четный порядковый номер, переписать в начало массива.

+5

Ответы (1)

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

Ионка · Answer 1

Var

a: array[1 ... 6]of integer;

i, m: integer;

begin

for i:=1 to 6 do

read (a[i]);

writeln (' ');

For i:=2 to 6 do

if (a[i]<0) and ((i mod 2) = 0) then

for m:=i downto 2 do

swap (a[m], a[m-1]); for i:=1 to 6 do

write (a[i]:2);

end.

abc pascal