Дана непустая последовательность положительных целых чисел

@Fedorfreezz · Регистрация: 03.01.2019

Author24 — интернет-сервис помощи студентам

Дана непустая последовательность положительных целых чисел a1,a2,... оканчивающаяся нулём.Получить а1,а1+а2,а1+а2+а3,...,0.

@Puporev · 05.01.2019, 12:39

Паскаль какой?

@Fedorfreezz · 05.01.2019, 13:56 **[ТС]**

Просто АВС

@Puporev · 05.01.2019, 14:54

Вроде как где-то нужно хранить новую последовательность, статистический массив не самый лучший вариант, но думаю что не будете вводить больше 1000 чисел.

Pascal

var a,s,n,i:integer;
    b:array[1..1000] of integer;
begin
writeln('Вводите целые положительные числа, окончание ввода 0');
n:=0;
s:=0;
repeat
readln(a);
if a<>0 then s:=s+a else s:=0;
inc(n);
b[n]:=s;
until a=0;
writeln('Новая последовательность');
for i:=1 to n do
write(b[i],' ')
end.

@Fedorfreezz · 05.01.2019, 15:01 **[ТС]**

Возможно ли написать программу не используя массив ?

@Puporev · 05.01.2019, 15:25

Скорее всего да.

Добавлено через 2 минуты
Просто для того чтобы сначала ввести последовательность, а потом вывести новую нужно где-то все хранить. Возможно какая-то хитрая рекурсия.

@Fedorfreezz · 05.01.2019, 16:27 **[ТС]**

А как будет выглядеть без массива ?

@Fedorfreezz 0 / 0 / 0 Регистрация: 03.01.2019 Сообщений: 28
		1
	Дана непустая последовательность положительных целых чисел 04.01.2019, 22:22. Показов 4931. Ответов 6 Метки нет (Все метки) Дана непустая последовательность положительных целых чисел a1,a2,... оканчивающаяся нулём.Получить а1,а1+а2,а1+а2+а3,...,0. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.01.2019, 12:39	2
	Паскаль какой? 0

@Fedorfreezz 0 / 0 / 0 Регистрация: 03.01.2019 Сообщений: 28
	05.01.2019, 13:56 [ТС]	3
	Просто АВС 0

@Fedorfreezz 0 / 0 / 0 Регистрация: 03.01.2019 Сообщений: 28
	05.01.2019, 15:01 [ТС]	5
	Возможно ли написать программу не используя массив ? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.01.2019, 15:25	6
	Скорее всего да. Добавлено через 2 минуты Просто для того чтобы сначала ввести последовательность, а потом вывести новую нужно где-то все хранить. Возможно какая-то хитрая рекурсия. 0

@Fedorfreezz 0 / 0 / 0 Регистрация: 03.01.2019 Сообщений: 28
	05.01.2019, 16:27 [ТС]	7
	А как будет выглядеть без массива ? 0