Заполнить массив из 25 элементов случайными числами - вопрос №25201006521706 от орпна 12.05.2022 00:55

Question

Информатика: Заполнить массив из 25 элементов случайными числами в интервале (20, 100) и вычислить сумму всех элементов массива а, которые делятся на 3

орпна · Answer

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите её версию!

begin
var a:=ArrRandom(25,20,100); a.Println;
Writeln('S=',a.Where(x->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