Bu
6 год назад
Заполнить массив из 25 элементов случайными числами в интервале (20, 100) и вычислить сумму всех элементов массива А, которые делятся на 3
ОТВЕТЫ
Грохольский
Jul 22, 2019
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(25,20,100); a.Println;
Writeln(S=,a.Where(x-gt;x mod 3=0).Sum)
end.
Пример
38 51 63 80 69 79 64 96 76 62 33 94 52 61 90 35 85 85 39 33 80 66 34 66 86
S=606
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(25,20,100); a.Println;
Writeln(S=,a.Where(x-gt;x mod 3=0).Sum)
end.
Пример
38 51 63 80 69 79 64 96 76 62 33 94 52 61 90 35 85 85 39 33 80 66 34 66 86
S=606
220
Смежные вопросы:
