// PascalABC.NET 3.2, сборка 1447 от 22.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество колонок в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(5); Writeln(5*a.ColCount*'-'); a.Cols.Select(x->Format('{0,5}',x.Where(y->y<0).Sum)).Print(''); Println(' - суммы отрицательных'); end.
1.1) 25//5 = 5
1.2) 15//25 = 0
1.3) 65//4 = 16
1.4) 22//22 = 1
1.5) 100//200 = 0
2.1) 26 % 26 = 0
2.2) 15 % 14 = 1
2.3) 36 % 14 = 8
2.4) 22 % 3 = 1
2.5) 89 % 20 = 9
3.1) (12 % 10) // 14 = 0
3.2) (15 // 14) % 1 = 0
3.3) (36 / 10) % 3 = 0.600000001. # тут скорее всего опечатка
3.3) (36 // 10) % 3 = 0 # добавил целочисленное деление
3.4) (27 % 7) // 6 = 1
3.5) (77 % 15) % 15 = 2