Регистрация
Мегамозг0511
10.02.2022 21:22
Информатика
Есть ответ 👍

9. Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Суммировать числа до тех пор, пока не встретится число 2. Напечатать получившуюся сумму. Если двойка не встретилась, напечатать текст "Двойки нет". Например, если А = { 7, 4, –3, 2, 5, –2, 1}, результат: 7 + 4 – 3 = 8.
Решите на паскале

186
353
Посмотреть ответы 2

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

Влад09090
Влад09090
4,5(8 оценок)

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Введите числа:', n);

 var k := a.FindIndex(p -> p = 2);

 if k < 0 then

   Print('Двойки нет, сумма равна', a.Sum)

 else

   Print('Сумма равна', a[:k].Sum)

end.

Тася221
Тася221
4,7(66 оценок)
Из 16 литров переливаем в 5л, из 5л выливаем все. в 16 у нас становится 11л из 16 литров переливаем в 5л, из 5л выливаем все. в 16 у нас становится 6л из 16 литров переливаем в 5л, из 5л выливаем все. в 16 у нас становится 1л переливаем 1 в 5л. набираем 16 полностью. в 5 у нас 1л, в 16 у нас 16л из 16 литров переливаем в 5л, из 5л выливаем все. в 16 у нас становится 12л из 16 литров переливаем в 5л, из 5л выливаем все. в 16 у нас становится 7л из 16 литров переливаем в 5л, из 5л выливаем все. в 16 у нас становится 2л переливаем 2 литра в 5, а 16 наполняем.  из 16 литров переливаем в 5л, из 5л выливаем все. в 16 у нас становится 13л из 16 литров переливаем в 5л, из 5л выливаем все. в 16 у нас становится 8л все. в 16 получается 8 литров.

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