Question

Слишком коротко. Напишите как минимум 20 символов, чтобы получить лучший ответ.

Answer 1

begin
var a:=ArrRandom(20, -100, 100);
var k:=a.Where(t->((t mod 3 =0) or (t mod 5 =0)));
a.Print;
println();
println('Cумма: ', k.Sum);
println('Кол-во: ',k.Count);
println('Ср ариф: ',k.Average);
end.