В массиве каждый элемент заменить суммой всех предыдущих элементов, первый заменить на 0

@Lily21fly · Регистрация: 05.04.2010

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

помогите пожалуйста!
Например, в массиве 5 чисел: 1,2,3,4,5 Они должны заменяться таким образом: A[5] =4+3+2+1=10, и т.д. а первое заменяем на ноль. Должно получиться 0,1,3,6,10

@кот Бегемот · 05.04.2010, 23:33

Сообщение от Lily21fly

помогите пожалуйста!
Например, в массиве 5 чисел: 1,2,3,4,5 Они должны заменяться таким образом: A[5] =4+3+2+1=10, и т.д. а первое заменяем на ноль. Должно получиться 0,1,3,6,10

Pascal

var
a:array[1..100]of integer;
i,j,n:integer;
begin
randomize;
writeln('vvedite kol-vo elementov');
readln(n);
writeln('massiv');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i],' ');
end;
for i:=n downto 1 do
begin
a[i]:=0;
for j:=1 to i-1 do
a[i]:=a[i]+a[j];
end;
writeln;
writeln('novyj massiv');
for i:=1 to n do
write(a[i],' ');
readln;
end.

@Lily21fly · 07.04.2010, 21:19 **[ТС]**

УРААААА! Спасибо огромное!

@Lily21fly 0 / 0 / 0 Регистрация: 05.04.2010 Сообщений: 3
		1
	В массиве каждый элемент заменить суммой всех предыдущих элементов, первый заменить на 0 05.04.2010, 23:21. Показов 1865. Ответов 2 Метки нет (Все метки) помогите пожалуйста! Например, в массиве 5 чисел: 1,2,3,4,5 Они должны заменяться таким образом: A[5] =4+3+2+1=10, и т.д. а первое заменяем на ноль. Должно получиться 0,1,3,6,10 0

@Lily21fly 0 / 0 / 0 Регистрация: 05.04.2010 Сообщений: 3
	07.04.2010, 21:19 [ТС]	3
	УРААААА! Спасибо огромное! 0

В массиве каждый элемент заменить суммой всех предыдущих элементов, первый заменить на 0

Решение