Мова програмуання pyhton Опитування: Візьміть за основу - id37630528 от ksenyarobulet 29.10.2021 10:15

Question

Информатика: Мова програмуання pyhton Опитування: Візьміть за основу код favorite_language: - створіть список людей, які повинні приймати участь в опитуванні, щодо улюбленої мови програмування. Внесіть деякі імена, які вже присутні і добавте нові. - переберіть список людей, які повинні брати участь в опитуванні. Якщо вони вже пройшли опитування виведіть повідомлення із вдячністю за їх участь. Якщо ні, то виведіть повідомлення про пропозиції взяти участь в опитуванні.

ksenyarobulet · Accepted Answer

pascalabc.net

begin

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

end.

объяснение:

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

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

begin

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

a.sum.print

end.