За это оцени Спасибо,плиз.Я старался)
Вот фото.вся формула обозначена как Ф
Устройство ввода-вывода.
Ввод - микрофон, вывод - наушники.
Write ('S=',S);
......
........
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Пример</u>
Количество строк (столбцов) в массиве: 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