В Delphi нужно выполнить задание по двумерным массивам (StringGrid)

[oRik24]

1. В двумерном массиве, заполненным случайными числами, определить столбец с максимальной суммой элементов и минимальный по величине элемент в этом столбце.
2. Заполнить массив по правилу:
1 1 1 - 1
1 2 2 - 2
1 2 3 - 3
- - - - -
1 2 3 - n

Прошу помощи, кому не сложно.

[Alex11223]

Что-то не очень понял, какое правило во втором.
А в 1 чем проблема? Где наработки?

[oRik24]

Ну я просто чайник пока в этом
Из наработок пока только сам массив:

var
Form1: TForm1;
i,j,n,m:integer;
a:array[0..30,0..30] of integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
n:=strtoint(Edit1.Text);
m:=strtoint(edit2.text);
for i:=0 to N-1 do
for j:=0 to M-1 do
a[i,j]:= Round(Sin(Random(100))*100);
StringGrid1.RowCount:=n+1;
StringGrid1.ColCount:=m+1;
with StringGrid1 do
begin
i:=0;
for j:=1 to RowCount do
Cells[i,j]:=IntToStr(j);
j:=0;
for i:=1 to ColCount do
Cells[i,j]:=IntToStr(i);
end;
with StringGrid1 do
for i:=1 to n do
for j:=1 to m do
Cells [j,i]:=IntToStr(a[i-1,j-1]);
end.

А правило - это как бы визуальное изображение массива, не знаю, как его ещё изобразить.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.