Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Складывать числа до встречи 0. Напечатать сумму. Если нуля нет, то вывести на экран «нет элемента, равного нулю». Например, если А = { 2, 4, 0, –6, 5, –2, 0, 7}, результат: 2 + 4 = 6. На языке паскаль
arturgilt21
2
10.06.2020 23:05
3
Другие вопросы по теме Информатика
danil250379
10.07.2019 03:00
222812
10.07.2019 03:00
anna7524
10.07.2019 03:00
Frampo228
10.07.2019 03:00
машана1
02.08.2019 22:20
samsung4652534832
30.09.2019 14:21
иринакодр
30.09.2019 15:20
axmefibragimovp09v94
30.09.2019 14:19
makeewaalexandra
30.09.2019 14:18
Vovanchik5978
20.04.2019 12:12
Популярные вопросы
- Прямоугольник разделили двумя отрезками на 4 прямоугольника , площади 3 которых...
1 - Как электричество энергия используется в вашем доме?...
1 - Основа слова не может состоять только из корня...
1 - Составить план по каравелла карело-финский эпос.....
3 - Напишите вывод по сравнительной характеристики от остапе и андрии: в чем...
3 - Тарас бульба. 1) какие качества тарас ценил у казаков? 2) какие черты характера...
3 - Правильный перевод на язык вы мое сердце покорили, одной тобою я дышу, мне...
3 - На книжной ярмарке в первый день продали 8700книг это на 1800книг больше...
1 - Выполните действия 1)33x17-21x19+2020: 10+4157 2)1288: 23+81x29-42x28-799...
3 - Написать, по написать про вещь которая живет в доме !...
2
// PascalABC.NET
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -10, 10);
a.Println;
var s := a.TakeWhile(p -> p <> 0);
Println(s.Sum)
if s.Count = a.Length then
Print('Нет элемента, равного нулю')
end.