Необходимо создать двумерный массив 5 х 5. Далее написать функцию, которая заполнит его случайными числами от 30 до 60. Создать еще две функции, которые находят максимальный и минимальный элементы этого двумерного массива. Нужен скрин с экрана компьютера, как решается задача

Чтобы найти минимальное значение в массиве, сначала присваиваем переменной min, которая определена в функции findMinElement(), значение ячейки arr[0][0]:

nt min = arr[0][0];

Потом проходим по всем ячейкам двумерного массива. Если встретим значение меньше того, которое было записано в min в начале – перезаписываем эту переменную. Максимальное значение определяется похожим образом.

pascal

Объяснение:

var i, max, min: integer;

   a: array [1..10] of integer;

begin

 randomize;

 for i := 1 to 10 do

 begin  

   a[i] := random(100);

   Write(a[i], ', ');

 end;

 WriteLn;

 min := a[1];

 max := a[1];

 for i := 1 to 10 do

 begin

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

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

 end;

 WriteLn('MAX = ', max);

 WriteLn('MIN = ', min);

 WriteLn('Среднее арифметическое MAX и MIN = ', (max + min) / 2:1:2);

end.