Ответы
Ответ дал:
0
PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Сумма положительных ',a.ElementsByRow.Where(t->t>0).Sum)
end.
Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Сумма положительных ',a.ElementsByRow.Where(t->t>0).Sum)
end.
Приложения:
![](https://st.uroker.com/files/9da/9da0c1b9b8061f215cab28965d9b1679.jpg)
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад