Ответы на вопрос:
Pascalabc.net 3.3.5, сборка 1650 от 01.04.2018 внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n='),1,200); a.println; writeln('ср.арифметическое кратных 3: ', a.where(t-> t mod 3=0).defaultifempty.average) end. пример n= 15 185 103 5 33 116 167 189 36 79 110 188 12 26 11 10 ср.арифметическое кратных 3: 67.5
Популярно: Информатика
-
Lomberts26.02.2021 09:53
-
Rossen24.03.2021 17:22
-
vika363055104.05.2023 00:24
-
wkolo3avr21119.09.2021 16:25
-
veronikak360225.04.2021 06:49
-
aysun22222207.02.2020 17:42
-
виктор125896327.12.2022 08:34
-
reginakajbeleva26.01.2023 22:59
-
F1er10.12.2020 03:16
-
Фомида28.12.2021 04:52