Question

Задания по паскалю(двумерные массивы) во вложениях
Очень срочно!

Answer 1

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;
  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