Найти сумму кратных 6 чисел в столбцах двумерного массива 10 на 10. Паскаль
Answers & Comments
elenaklonPascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(10,10,-99,99); a.Println(4); Writeln(40*'-'); Writeln('Суммы по столбцам чисел, кратных 6'); a.Cols.Select(col->col.Where(t->t mod 6=0).Sum).Println end.
Answers & Comments
Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(10,10,-99,99);
a.Println(4); Writeln(40*'-');
Writeln('Суммы по столбцам чисел, кратных 6');
a.Cols.Select(col->col.Where(t->t mod 6=0).Sum).Println
end.