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

Дан двумерный массив A[m,n]/ Найти минимальное и максимальное значение массива. Результаты выдать на экран.НУЖЕН ПАСКАЛЬ!!!!!!!!!!!!
Гость
Ответ(ы) на вопрос:
Гость
// 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы