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

vara: array[1..6]of integer;i,m: integer;beginfor i:=1 to 6 do read(a[i]);writeln(' ');For i:=2 to 6 doif (a[i]<0) and ((i mod 2) =0) thenfor m:=i downto 2 doswap(a[m],a[m-1]); for i:=1 to 6 dowrite(a[i]:2);end.abc pascal