Двумерные массивы

[Ostryak]

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

[Stilet]

Заполнить двухмерный массив M*N случайными целыми числами из диапазона [-40,40].

for i:=1 to m do
 for j:=1 to n do a[i,j]:=-40+random(80);

минимальное значение для элементов, расположенных на главной диагонали

В цикл допиши условие

 if (i=j)and(min>a[i,j]) then min:=a[i,j];

и максимальное значение для элементов, расположенных на побочной диагонали.

Аналогично:

 if ((m-i+1)=j)and(max<a[m-i+1,j]) then max:=a[m-i+1,j];

Где min,max - переменные того же типа что и массив.

[Ostryak]

Спасибо большое!

[BDA]

-40+random(81);

т.к. random(80) - отрезок [0;79].