PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(4,5,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Write('Количество отрицательных элементов в нечетных строках ');
foreach var i in Range(0,a.RowCount-1,2) do
a.Row(i).Where(t->t<0).Count.Print;<br> Writeln;
Writeln('Сумма элементов 5-го столбца ',a.Col(4).Sum);
var tt:=a.ElementsWithIndexes.Max;
Writeln('Максимальный элемент находится в строке ',tt[1]+1)
end.
Пример
*** Исходная матрица ***
94 -7 -84 -65 39
32 -30 65 13 98
-66 -35 86 -37 53
-78 -29 24 -88 -12
--------------------
Количество отрицательных элементов в нечетных строках 3 3
Сумма элементов 5-го столбца 178
Максимальный элемент находится в строке 2