Найти сумму и количество чисел делящихся на 8. нет времени решать, поэтому аж 60 . не мало! но и ответ должен быть правильным)

myrjyffiyfukfkufkyf myrjyffiyfukfkufkyf    2   11.09.2019 04:30    1

Ответы
Назмина134 Назмина134  07.10.2020 06:47
// 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.

Пример
Количество строк и столбцов в массиве: 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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика