===== PascalABC.NET =====
begin
var (строк, столбцов) := ReadInteger2('Укажите P и Q:');
var (от, до) := (-99, 99);
var массив := MatrRandom(строк, столбцов, от, до);
массив.Println;
массив.Rows
.Select(строка -> строка.Sum)
.Count(сумма -> сумма > 0)
.Print
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
var (строк, столбцов) := ReadInteger2('Укажите P и Q:');
var (от, до) := (-99, 99);
var массив := MatrRandom(строк, столбцов, от, до);
массив.Println;
массив.Rows
.Select(строка -> строка.Sum)
.Count(сумма -> сумма > 0)
.Print
end.