упорядочить элементы массива

@demrona · Регистрация: 19.02.2010

Author24 — интернет-сервис помощи студентам

Задание: В массиве В(n) упорядочить все элементы в порядке возростания их значений.
Вот этот массив в виде консольного приложения, подскажите пожалуйста, как правильно вывести его с помощью StringGrid?

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
const
N=10;
var
B:array[1..N]of integer;
i,j,t:integer;
begin
Randomize;
for i:=1 to N do
B[i]:=Random(50);
for i:=1 to N do Write('B[',i,']=',B[i]);
writeln;
for j:=1 to N-1 do
For i:=1 to N-j do
if B[i]>B[i+1]then
begin
t:=B[i];
B[i]:=B[i+1];
B[i+1]:=t;
end;
for i:=1 to N do Write(' B[',i,']=',B[i]);
Readln;
end.

@Inadequate · 27.02.2010, 19:16

Delphi

1
2
3

StringGrid1.ColCount := N-1+StringGrid1.FixedCols;
for i := 1 to N do
  StringGrid1.Cells[i-1+StringGrid1.FixedCols,0] := IntToStr(b[i]);

@demrona · 27.02.2010, 20:04 **[ТС]**

Благодарю

@demrona 0 / 0 / 0 Регистрация: 19.02.2010 Сообщений: 14
	27.02.2010, 20:04 [ТС]	3
	Благодарю 0