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

// 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)    endend.ПримерКоличество строк (столбцов) в массиве: 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