Задача в Pascal ABC:
Случайным образом задать двумерный массив из 5 строк и 8 столбцов. Диапазон от 11 до 30. Вывести его на экран. Найти максимальный элемент массива. Найти минимальный элемент массива. Вывести на экран их сумму.

Можно так. Не спрашивайте, зачем такие сложные конструкции.

const M = 5;

const N = 8;

var A: array [1..M,1..N] of integer;

var i,j,max,min: integer;

begin

max:=11;

min:=11;

randomize();

For i:= 1 to M do

begin

 For j:= 1 to N do

 begin

 A[i,j]:=random(20)+11;

 if (A[i,j]<A[min div 10,min mod 10]) then min:=i*10+j;

 if (A[i,j]>A[max div 10,max mod 10]) then max:=i*10+j;

 write(A[i,j]:4);

 end;

 writeln();

end;

writeln('Максимальный элемент массива: ',A[max div 10,max mod 10]);

writeln('Минимальный элемент массива: ',A[min div 10,min mod 10]);

writeln('Их сумма: ',A[max div 10,max mod 10]+A[min div 10,min mod 10]);

end.