//PascalABC.NET 3.1 сборка 1200
begin
var n := ReadInteger('n=');
var a := MatrixRandom(n, n, -10, 10);
var b := ArrFill(n, 0);
println(a);
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
if a[i, j] = 0 then b[i] += 1;
b.Println;
end.
Ответ:
Укажи размер символа в пикселях
Объяснение:
((0и0)или0)и(1илиА)=0
(0или0)и(1илиА)=0
0и(1илиА)
А=0 - 0и(1или0)=0и1=0
А=1 - 0и(1или1)=0и1=0
=0