Дана матрица 4 ** 6 найти минимальный и максимальный элемент в этой матрице. ПОМОГИТЕ...

0 голосов
82 просмотров

Дана матрица 4 на 6 найти минимальный и максимальный элемент в этой матрице.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!


Информатика (68 баллов) | 82 просмотров
0

Указывайте конкретную версию вашего Паскаля. Если АБС-паскаль свежий вас не устраивает.

Дан 1 ответ
0 голосов
Правильный ответ
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(4,6,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s:=a.ElementsByRow; // последовательность не хранится в памяти
  Writeln('Max=',s.Max,', min=',s.Min)
end.

Пример
*** Исходная матрица ***
  55   8 -53  99  55  75
  48  13 -57 -81 -82  94
  22   7  53  14 -10 -21
 -73 -55 -39  79   1 -35
------------------------
Max=99, min=-82
(150k баллов)
0

Не Паскаль

0

У меня работает в АБС-паскале, хотя цифирки иные. но на то он и рандом.