Question

Дан двумерный массив A[m,n]/ Найти минимальное и максимальное значение массива. Результаты выдать на экран.НУЖЕН ПАСКАЛЬ!!!!!!!!!!!!

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Min=',a.ElementsByRow.Min,', max=',a.ElementsByRow.Max)
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 10
*** Исходный массив [5,10] ***
 -17  38  59   5 -22 -16  -4   2 -35 -97
  52  47  -4 -83 -61  93 -27 -77 -73 -33
  89  94  26 -27 -54  -7 -40 -70  66 -32
  47 -80  -2 -10  51 -17 -13 -46 -70  19
 -64  29 -54 -80 -98 -27 -78   2  97   0
----------------------------------------
Min=-98, max=97

Answer 2

Для нахождения минимального и максимального значения в двумерном массиве A[m,n] в Паскале можно использовать следующий код:

program MinMaxArray;

const
  m = 3; // количество строк
  n = 4; // количество столбцов

var
  A: array[1..m, 1..n] of integer;
  i, j, min, max: integer;

begin
  // Заполнение массива случайными значениями
  randomize;
  for i := 1 to m do
    for j := 1 to n do
      A[i, j] := random(100); // случайное число от 0 до 99

// Нахождение минимального и максимального значения
  min := A[1, 1];
  max := A[1, 1];
  for i := 1 to m do
    for j := 1 to n do
    begin
      if A[i, j] < min then
        min := A[i, j];
      if A[i, j] > max then
        max := A[i, j];
    end;

// Вывод результатов на экран
  writeln('Минимальное значение: ', min);
  writeln('Максимальное значение: ', max);
end.

Этот код создает двумерный массив A[m,n] и заполняет его случайными значениями от 0 до 99. Затем происходит поиск минимального и максимального значения в этом массиве с помощью двойного цикла. Результаты выводятся на экран с помощью функции writeln.

При запуске этой программы вы увидите минимальное и максимальное значение массива A[m,n].