[ostryak5]

Заполнить двухмерный массив M*N случайными целыми числами из диапазона [-40,40]. Определить : минимальное значение для элементов, расположенных на главной диагонали, и максимальное значение для элементов, расположенных на побочной диагонали.

[Bargest]

Заполни, определи. Что конкретно не получается?
Если ответ "всё" - шагом марш в раздел "Работа".

[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.

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

[ostryak5]

Помогите, в чем ошибка?

[Pyro]

какие симптомы ошибки?

[ostryak5]

С минимальным элементом проблема, аналогично максимальный. Выводит не правильно.

[R-18Rus]

Меня ещё учили, что на делфи надо начинать счёт с 0.

Код:

for i:=0 to n-1 do

Если работать со StringGrid будет не очень привычно (там строки и столбцы не так, как в массивах задаются - нужно привыкнуть, что сначала [СТОЛБЕЦ,СТРОКА]).
Для массива, где n=m главная диагональ будет

Код:

if i=j then if StringGrid1.Cells[j,i]<min then min:=SG1.Cells[j,i]

побочная диагональ это i=(n+1)-j