Ответы на вопрос:
// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! begin var x: =arrrandom(readinteger('n=',50); x.println; var w: =readinteger('w='); var p: =x.where(q-> q> w); var c1: =p.sum; var m1: =p.count; p: =x.where(q-> q< w); var c2: =p.sum; var m2: =p.count; writeln('c1=',c1,', m1=',m1); writeln('c2=',c2,', m2=',m2) end. пример n= 20 39 -13 -12 41 14 -4 38 -33 28 -30 25 24 7 -20 47 42 12 6 -30 16 w= 7 c1=326, m1=11 c2=-136, m2=8
Популярно: Информатика
-
lmaxluk09921.11.2020 06:11
-
doc251027.12.2020 09:41
-
ВаняАВЕР200604.09.2022 09:26
-
olya201003.10.2022 16:43
-
resssnizisss06.04.2022 10:57
-
mrzus22.03.2020 04:22
-
nasten4ik019409.10.2022 17:56
-
daffar1daffari02.12.2022 01:28
-
fyxfhltn26.06.2021 17:04
-
Рюзаки123.05.2021 10:59