Регистрация
shinkevivh2001
10.03.2020 15:16
Информатика
Есть ответ 👍

Определите сколько раз выполнится цикл

184
418
Посмотреть ответы 2

Ответы на вопрос:

АтинаАссорти
АтинаАссорти
4,7(34 оценок)
Где.
slavuka
slavuka
4,5(64 оценок)

pascalabc.net

begin

  readseqintegerwhile(p -> p < > 0).sum.print

end.

объяснение:

после ввода нуля на следующей строке будет выдана сумма. числа можно вводить и в строку, но в любом варианте, если в строке после нуля набрать еще цифры, в сумму войдут лишь те, которые шли до первого встреченного нуля.

если хочется именно массив (т.е. чтобы он так назывался в программе) будет чуть длиннее:

begin

  var a : = readseqintegerwhile(p -> p < > 0).toarray;

  a.sum.print

end.

Популярно: Информатика