Ребят, срочно нужна ваша помошь! Я влип, у меня контрольная!!!! Help!!! Задана матрица...

Question

Ребят, срочно нужна ваша помошь! Я влип, у меня контрольная!!!! Help!!! Задана матрица А(5,3), подсчитать количество строк, в которых первый элемент строки меньше нуля.

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
  var a := MatrixRandom(5, 3, -50, 50);
  Println(a);
  var n := 0;
  for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
    if a[i, a.GetLowerBound(1)] < 0 then n := n + 1;
  writeln(n);
end.