или режиком заножу
! в течении 10-ти минут максимум ответ нужен!
там что то складывать надо
142
411
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1467 от 02.06.2017 // внимание! если программа не работает, обновите версию! begin var x: =readarrinteger(readinteger('n=')); var p: =x.findindex(t-> t> 10); if p=-1 then writeln('нет элементов, больших 10') else begin write('ср.арифм.значений до ',x[p],' равно '); if p=0 then writeln('0') else writeln(x[: p].average); var s: =x[p+1: ].where(t-> t< 0); write('ср.арифм. отрицательных значений после ',x[p],' равно '); if s.count=0 then writeln('0') else writeln(s.average) end end. пример n= 12 4 1 -13 15 13 0 9 5 -12 9 4 -11 ср.арифм.значений до 15 равно -2.66666666666667 ср.арифм. отрицательных значений после 15 равно -11.5
Популярно: Информатика
-
Xopccc1337704.05.2020 06:38
-
alanuit09.04.2021 20:18
-
anna354820211.12.2020 10:38
-
Blackrabbit30040131.10.2022 09:45
-
DashaZhelezniak19.11.2021 01:25
-
АртиUp06.09.2020 20:35
-
dashkastroga06.07.2022 13:11
-
Каракоз1111105.08.2021 16:54
-
амаикем27.03.2021 13:55
-
BashProcker20.04.2022 15:56