Ответы на вопрос:
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
Популярно: Информатика
-
tamilatumasheva02.06.2023 10:23
-
sashamay201606.02.2020 23:51
-
barina20172007115.07.2021 14:01
-
Максек133723.05.2023 16:32
-
egordima200311.03.2023 01:27
-
kostyan228231.05.2021 01:03
-
жанель9825.09.2020 20:08
-
nikoszahar07.04.2021 04:45
-
упоротаялялька05.06.2020 10:05
-
egor57012.09.2022 10:26