9. Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Суммировать числа до тех пор, пока не встретится число 2. Напечатать получившуюся сумму. Если двойка не встретилась, напечатать текст "Двойки нет". Например, если А = { 7, 4, –3, 2, 5, –2, 1}, результат: 7 + 4 – 3 = 8.
Решите на паскале
Ответы
Ответ дал:
0
// 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.
hthrthrh:
А по-другому никак нельзя ?
Конечно можно. Но поскольку в задании ничего не сказано тактого, что модет определить стиль написания, дающий ответ вправе писать как ему удобно, лишь бы программа правильно работала.
Просто в колледже мы такое не проходили
Похожие вопросы
1 год назад
1 год назад
2 года назад
8 лет назад