Дан двумерный массив сосстоящий из 4 строк и 5 стобцов и заполненный случайным образом целыми числами от 1 до 100 ... Найти разность максимального и минимального элемента массива.

var

a: array [1 ... 5, 1 ... 4] of integer;

min, max: integer;

i, j: integer;

begin

min: = 100;

max: = 1;

write ('Исходный массив: ') ;

for i: = 1 to 5 do

for j: = 1 to 4 do

begin

a[i, j]: = random (99) + 1;

write (a[i, j], ' ') ;

if a[i, j] < min then min: = a[i, j];

if a[i, j] > max then max: = a[i, j];

end;

writeln;

writeln ('Разность максимального и минимального элемента массива равна: ', max - min) ;

end.

Если что не понятно - спрашивай.