// 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('Есть отрицательные элементы')<br> 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
