Question

в паскале
Дан двумерный массив размером n*n. Вычислить сумму и число положительных элементов в каждой строке.

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк (столбцов) в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Cуммы и число положительных элементов построчно:');
  foreach var r in a.Rows do begin
    var s:=r.Where(t->t>0);
    Println(s.Sum,s.Count)
    end
end.

Пример
Количество строк (столбцов) в массиве: 6
*** Исходный массив ***
 -98 -66  14 -63  78 -47
  -7  59 -88  -7   6 -13
 -89  26  29  78 -79  54
 -99  55 -15  45 -14 -58
 -59 -68 -93  55  63 -33
 -72 -94  42 -89 -86  70
------------------------
Cуммы и число положительных элементов построчно:
92 2
65 2
187 4
100 2
118 2
112 2