[ostryak5]

Код:

var
a:array[1..100,1..100] of integer;
m,n: integer;
min,max: Integer;
i,j: integer;
begin
randomize;
//StringGrid1.visible:=True;
n:=strtoint (edit1.text);
m:=strtoint (edit2.text);
//SetLength(a,n,m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=-40+random(80);
StringGrid1.visible:=True;
stringgrid1.RowCount:=n;
stringgrid1.ColCount:=m;

with StringGrid1 do // позволяет каждый раз не обращаться к имени компонента
begin
for j:=1 to RowCount do // цикл для вывода номеров строк
Cells[0,j]:=InttoStr(j); // в первом столбце

for i:=1 to ColCount do // цикл для вывода номеров столбцов
Cells[i,0]:=IntToStr(i); // в первой строке

for i:=1 to n do // циклы для вывода элементов
for j:=1 to m do // массива в таблицу
Cells[j,i]:=IntToStr(a[i-1,j-1]);

//for i:=1 to n do
//for j:=1 to m do
//if (i=j)and(a[i,j]<min) then min:=a[i,j];
//if ((m-i+1)=j)and(max<a[m-i+1,j]) then max:=a[m-i+1,j];
label1.Caption:= inttostr (min);
//label2.Caption:= inttostr (max);
//end;
end;
end;

//end;

end.

Админ: Пользуемся тегами для оформления кода!