Ответы на вопрос:
// pascalabc.net 3.2, сборка 1387 от 20.02.2017 // внимание! если программа не работает, обновите версию! begin writeln('s=',readseqintegerwhile(i-> i< > 0).average) end. пример 24 18 -25 14 6 11 0 s=8
Популярно: Информатика
-
Barbara726402.02.2020 06:45
-
alexandra15227.09.2020 11:46
-
2011200550543816.07.2021 00:24
-
Nastionka675725.12.2022 12:13
-
adilyabaxtigar01.01.2023 19:40
-
Anyazz02.01.2021 14:17
-
помогитееученику19.08.2021 23:54
-
Anechka666501.11.2021 03:19
-
MariKharlova09.09.2021 06:08
-
cross66618.05.2023 10:21