Question

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

Answer 1

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. 

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