Question

1. Определить максимальный элемент двумерного массива 5х5 (массив задан случайными числами).

2. Определить:
• Есть ли в данном массиве отрицательный элемент;
• Есть ли данное число А среди элементов массива.

Answer 1

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

begin
  Writeln('*** Исходный массив ***');
  var M:=MatrRandom(5,5,-5,99);
  M.Println(4); Writeln(4*M.ColCount*'-');
  var s:=M.ElementsByRow;
  Writeln('Максимальный элемент равен ',s.Max);
  if s.Any(t->t<0) then Writeln('Есть отрицательные элементы')
  else Writeln('Нет отрицательных элементов');
  var a:=ReadInteger('A =');
  if s.Any(t->t=a) then Writeln('Массив содержит число ',a)
  else Writeln('Массив не содержит число ',a)
end.

Пример работы
*** Исходный массив ***
  71  89  53  36  70
  71  -2  99  25  50
  18  49  71  31  37
  11  65  52  65  90
  64  10  30  67  23
--------------------
Максимальный элемент равен 99
Есть отрицательные элементы
A = 31
Массив содержит число 31