Ответы на вопрос:
// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(12,0,50); a.println; var m: =a.average; write('элементы, меньшие среднего значения: '); writeln('таких элементов ',a.where(x-> x< m).println.count) end. пример 34 12 5 35 29 15 23 22 41 27 12 36 элементы, меньшие среднего значения: 12 5 15 23 22 12 таких элементов 6 begin var a: =arrrandom(13,0,100); a.println; write('элементы, меньшие 50: '); writeln('таких элементов ',a.where(x-> x< 50).println.count) end. пример 25 17 68 71 27 37 83 32 63 87 29 12 34 элементы, меньшие 50: 25 17 27 37 32 29 12 34 таких элементов 8
Популярно: Информатика
-
Даня122125.06.2021 22:02
-
попг23.05.2021 18:15
-
мико14118.06.2023 01:47
-
Адема1234504.06.2021 03:49
-
Leoger29.04.2021 19:19
-
Shidvwissysvdiw28.04.2021 13:02
-
shastononelove215.06.2022 21:06
-
Вадим1кр21.01.2021 22:22
-
yalex83p0a2c725.10.2022 09:30
-
Примари13.09.2021 07:58