сортировка массива

[feras]

помогите плиз)))
задан a:array[1..5]of string
как можо сорировать его в StringGrid так чтобы элементы с нечетнами индексами в солбце а элементы с четнами индексами в другом солбце.

[A-IX-2]

Если индекс делится на 2 без остатка - в один столбец, если с остатком - в другой.

[feras]

Это все словами а программно?

[A-IX-2]

Вот как-то так

procedure TForm1.Button1Click(Sender: TObject);
  var
    a: array[1..5]of real;
    i: integer;
begin

  For i:=1 to 5 do
  begin
    a[i]:=i;
    If i mod 2 <> 0 then StringGrid1.Cells[1,i]:=FormatFloat('0.###',a[i])//если остаток от деления отличен от 0, то значение записывается в первую колонку
    else StringGrid1.Cells[2,i]:=FormatFloat('0.###',a[i]);               //иначе(если остаток 0) - во вторую
  end;

end;

[feras]

вот тк олучилось
1
2
3
4
а мне надо
1 2
3 4

[Serge_Bliznykov]

пробуйте:

procedure TForm1.Button1Click(Sender: TObject);
const N = 5;
  var
    a: array[1..N]of real;
    i: integer;
begin

  // заполним массив - для отладки просто 1 2 3 4 5
  For i:=1 to N do a[i]:=i;

  // уберём заголовки в гриде (просто для простоты...
  StringGrid1.FixedCols := 0;
  StringGrid1.FixedRows := 0;

  // зададим гриду нужный размер
  StringGrid1.ColCount := 2;
  StringGrid1.RowCount := (N div 2);
  if Odd(N) then StringGrid1.RowCount := StringGrid1.RowCount + 1;

  for i:=1 to N do
  begin
    If odd(i)
      then StringGrid1.Cells[0, (i-1) div 2]:=FormatFloat('0.###',a[i])
      else StringGrid1.Cells[1, (i-1) div 2]:=FormatFloat('0.###',a[i]);
  end;

end;

ps. А при чём здесь "Сортировка массива" ?!
Он же не сортируется - банально переносится в стрингрид по заданному правилу....

[feras]

Болшое Спасибо!!!!!!
Все получилось