// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
for var i:=1 to 7 do
for var j:=i+1 to 8 do
for var k:=j+1 to 9 do
Write(i,j,k,' ');
end.
Результат
123 124 125 126 127 128 129 134 135 136 137 138 139 145 146 147 148 149 156 157 158 159 167 168 169 178 179 189 234 235 236 237 238 239 245 246 247 248 249 256 257 258 259 267 268 269 278 279 289 345 346 347 348 349 356 357 358 359 367 368 369 378 379 389 456 457 458 459 467 468 469 478 479 489 567 568 569 578 579 589 678 679 689 789
2)
begin
var a:=MatrRandomReal(4,5,-1,1); a.Println(8,4);
Writeln('Неотрицательных: ',a.ElementsByRow.Where(t->t>=0).Count)
end.
Пример
-0.6024 -0.1973 0.6030 -0.4071 -0.7452
0.4969 0.8406 0.4798 -0.7246 -0.2586
-0.3172 0.5559 0.1357 -0.2104 -0.1014
-0.8320 -0.5357 -0.2981 0.2046 -0.2779
Неотрицательных: 7
3)
begin
var a:=ReadMatrInteger(3,4); a.Println(4);
a.Rows.Select(t->t.Sum).Println
end.
Пример
8 -3 4 6 15 -13 9 11 0 -1 -17 -5
8 -3 4 6
15 -13 9 11
0 -1 -17 -5
15 22 -23