Немогу написать массив.

[pavelmd]

Помогите решить задачу. Дан массив целых чисел. Записать в этот же массив сначала все положительные числа и нули, затем все отрицательные числа, сохранив порядок их следования.

[Alex11223]

Из PascalABС-то зачем выкладывать фотографии? Это же не ТР и с копированием текста проблем нет.

Если я правильно понял, то нужно просто отсортировать массив по убыванию. Гуглите "пузырьковая сортировка" (в википедии есть много примеров ее реализации).

upd: хотя если "сохранив порядок их следования", то нет.

[gamer-25]

Program Matrice;
var
   A: array[1..10] of Integer = (1,2,0,-4,7,2,0,8,9,-7);
   rezArr: array[1..10] of Integer;   // Для временного хранения
   i, j, num: Integer;
Begin
   num:= 1;

   for i:= 1 to 3 do
      for j:= 1 to 10 do
      begin
         if (i = 1) and (A[j] > 0)  then
         begin
            rezArr[num]:= A[j];
             num:= num + 1;
        end;
      if (i = 2) and (A[j] = 0) then
        begin
          rezArr[num]:= A[j];
          num:= num + 1;
        end;
      if (i = 3) and (A[j] < 0) then
        begin
          rezArr[num]:= A[j];
          num:= num + 1;
        end;
    end;

   for j:= 1 to 10 do
      A[j]:= rezArr[j];
end.

[pavelmd]

gamer25 ты проверял свой код? Он не работает.

[gamer-25]

Почему не работает? Сам алгоритм не правильный или вообще программа не компилируется? Просто Паскаль у меня сейчас не установлен. На Delphi проверял, работает.

[TinMan]

2 gamer-25:
1. интересная концепция (вложенные циклы)).. Надеюсь, это шутка была )). Лучше организовать три цикла.
2. нули не надо выделять, их надо с положительными (по условию).
3. перекладывать массивы лучше так: A:=B . Но только для этого желательно описать их как один тип.
4. думаю, имелась в виду работа без дополнительных массивов..

Короче, примерно так можно (тут я проэксплуатировал идею Alex11223, за которую ему спасибо и +1)).

const
  n= 10;

var
  i,j,b: integer;
  a: array[1..n] of integer;

begin
  Randomize;
  for i:=1 to n do a[i]:= Random(11)-5;
  for i:=1 to n do Write(a[i]:3);
  Writeln;
  for i:=2 to n do
    for j:=n downto i do
      if (a[j]>=0) and (a[j-1]<0) then begin
        b:= a[j];
        a[j]:= a[j-1];
        a[j-1]:= b
      end;
  for i:=1 to n do Write(a[i]:3);
  Writeln
end.

[pavelmd]

Спасибо всем , все работает.