Предмет: Информатика,
автор: hthrthrh
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:
А по-другому никак нельзя ?
Просто в колледже мы такое не проходили
Интересные вопросы
Предмет: Русский язык,
автор: ilyasovaislamov
Предмет: Қазақ тiлi,
автор: RoyJones23
Предмет: Другие предметы,
автор: dashkaDD
Предмет: Математика,
автор: Василиса369
Предмет: Литература,
автор: piter0116