не могу разобраться с массивами

[Olgaandsasha]

помогите что не так?
работает, но как то не правильно((
Program olga;
var
C: array [1..100] of Integer;
i, j, t, d: Integer;
begin
randomize;
writeln('massiv C=');
for i:=1 to 100 do
begin
C[i]:=-20+random(201);
writeln(C[i]:5);
end;
writeln;
for d:=1 to 99 do
begin
for i:=1 to 100-d do
begin if C[i]>C[i]+1 then
t:=C[1];
C[i]:=C[i]+1;
t:=C[1]+1;
end;
for i:=1 to 100 do
write(C[i]:5);
if i<=100 then
begin
for j:=1 to 100 do
begin
i:=i+1;
writeln(c[i]:5);
readln;
end;
end.
задание: дано 100 чиселю напечатать по 5 элементов в строке сначала все отрицательные, затем нулевые и положительные из них.

[val_nnm]

1) Много мелких ошибок (исправляя ошибки получим)

Program olga;
var
  C: array [1..100] of Integer;
  i, j, t, d: Integer;
begin
  randomize;
  writeln('massiv C=');
  for i:=1 to 100 do
  begin
    C[i]:=-20+random(201);
    writeln(C[i]:5);
  end;
  writeln;
  for d:=1 to 99 do
    for i:=1 to 100-d do
      if C[i]>C[i+1] then Begin
       t:=C[i];
       C[i]:=C[i+1];
       C[i+1]:=t;
      end;

  for i:=1 to 100 do Begin
    if (i mod 5)=1 then Writeln;
    write(C[i]:5);
  end;
end.

Но он просто сортирует элементы по неубыванию.

2) Скорее всего вам нужно сохранить исходный взаимный порядок отрицательных и положитльных элементов. Тогда можно сделать прмерно так (обратите внимание на условия сортировки, фактически мы сортируем числа по их знаку)

Program olga;
var
  C: array [1..100] of Integer;
  i, j, t, d: Integer;
begin
  randomize;
  writeln('massiv C=');
  for i:=1 to 100 do
  begin
    C[i]:=-20+random(201);
    writeln(C[i]:5);
  end;
  writeln;
  for d:=1 to 99 do
    for i:=1 to 100-d do
      if (C[i]>=0) and (C[i+1]<0) then Begin
       t:=C[i];
       C[i]:=C[i+1];
       C[i+1]:=t;
      end;

  for i:=1 to 100 do Begin
    if (i mod 5)=1 then Writeln;
    write(C[i]:5);
  end;
end.

Напишу тоже самое немного другим способом (может будет понятнее)

Program olga;
{ Возвращает знак числа.   т.е. если X<0  -1     если X>=0 то 1 }
function Sign(X:integer):integer; 
Begin
  if (X>=0) then Sign := 1
    else Sign := -1
End;

var
  C: array [1..100] of Integer;
  i, j, t, d: Integer;
begin
  randomize;
  writeln('massiv C=');
  for i:=1 to 100 do
  begin
    C[i]:=-20+random(201);
    writeln(C[i]:5);
  end;
  writeln;
  for d:=1 to 99 do
    for i:=1 to 100-d do
      if (Sign(C[i])>Sign(C[i+1])) then Begin
       t:=C[i];
       C[i]:=C[i+1];
       C[i+1]:=t;
      end;

  for i:=1 to 100 do Begin
    if (i mod 5)=1 then Writeln;
    write(C[i]:5);
  end;
end.

[Olgaandsasha]

спасибо большое. все очень понятно)