// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.Rows.SelectMany(t->t).Where(t->t mod 8=0); Writeln(s.Sum,' - сумма ',s.Count,' чисел(числа), кратных 8') end.
// Внимание! Если программа не работает, обновите версию!
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.Rows.SelectMany(t->t).Where(t->t mod 8=0);
Writeln(s.Sum,' - сумма ',s.Count,' чисел(числа), кратных 8')
end.
Пример
Количество строк и столбцов в массиве: 6 9
*** Исходный массив [6,9] ***
-66 98 -73 -10 -14 -86 -63 -91 -79
-36 -2 -22 -3 51 59 93 36 -75
72 20 77 12 17 72 71 -41 -73
56 -33 2 -38 -60 17 -14 84 58
10 -99 -8 58 -62 -87 -15 -33 62
-94 -82 93 82 -41 -74 35 94 -84
192 - сумма 4 чисел(числа), кратных 8