// PascalABC.NET 3.2, сборка 1385 от 14.02.2017// Внимание! Если программа не работает, обновите версию!begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); a.Cols.Select(x->Format('{0,4}',x.Min)).Print(''); Writeln(' - минимальные'); a.Cols.Select(x->Format('{0,4}',x.Max)).Print(''); Writeln(' - максимальные');end.
ПримерКоличество строк в массиве: 6Количество столбцов в массиве: 9*** Исходный массив [6,9] *** 21 65 34 -6 -67 16 -68 -41 -82 -90 -31 6 38 34 -42 15 57 -21 55 72 -34 32 -77 -4 -16 66 -71 47 67 -75 -92 0 82 72 41 29 7 -19 94 -12 -42 -27 7 -39 41 60 -90 68 77 27 -59 -21 36 32------------------------------------ -90 -90 -75 -92 -77 -59 -68 -41 -82 - минимальные 60 72 94 77 34 82 72 66 41 - максимальные