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

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