Ответы на вопрос:
pascalabc.net
begin
readseqintegerwhile(p -> p < > 0).sum.print
end.
объяснение:
после ввода нуля на следующей строке будет выдана сумма. числа можно вводить и в строку, но в любом варианте, если в строке после нуля набрать еще цифры, в сумму войдут лишь те, которые шли до первого встреченного нуля.
если хочется именно массив (т.е. чтобы он так назывался в программе) будет чуть длиннее:
begin
var a : = readseqintegerwhile(p -> p < > 0).toarray;
a.sum.print
end.
Популярно: Информатика
-
bayramovelnur17.11.2020 07:25
-
Nikita022816.01.2021 01:54
-
qerenfilibrahi12.05.2023 06:31
-
GintokiSakata2004.11.2022 21:29
-
katerin826.10.2022 19:24
-
Vvyq25.02.2022 01:44
-
maksim93949262tue24.03.2022 10:21
-
DahenkaSi0531.03.2021 08:33
-
Ваня11111122209.02.2020 22:39
-
bonbino117.07.2020 14:12