массив А содержит 100 чисел

[darwin1]

Массив А содержит 100 чисел,из которых 50
чисел положительных, а 50- отрицательных.
Расположите их в том же массиве так,чтобы
первым шли отрицательные числа,затем -
положительные ,причем порядок появления
чисел после перестановки может быть любым

[Vanta11a]

Да да, порядок может быть. А может и не быть.

Что сделано самостоятельно? Можете показать ввод массива?

[Аватар]

var m: array[1..100] of Integer;
    i,j,k,n: Integer;
...
//в m 50 отрицательных и 50 положительных
  k:=51;
  for i:=1 to 50 do if m[i]>0 then for j:=k to 100 do if m[j]<0 then begin n:=m[i]; m[i]:=m[j]; m[j]:=n; k:=j+1; Break; end;