Вопрос Очень нужна помощь с программой на Паскаль. Дан массив A(20). Заменить каждый элемент массива на сум

[cergoo]

Очень нужна помощь с программой на Паскаль. Дан массив A(20). Заменить каждый элемент массива на сумму всех предыдущих.

 

[Лось]

Сделать цикл от 20 до 1, в нём цикл от 1 до i, в этом цикле b:=b+a, в основном цикле a :=b.

 

[серго]

200руб

 

[Мишка3]

Помогаю: делай вложенный цикл Во внешнем заменяешь, во внутреннем считаешь сумму до текущего

 

[Batman]

И как считать сумму предыдущих у первого элемента? учитывая, что до него 0 штук - сумма =0 получается, что сумма у второго = 0 у третьего 0+0 итд

 

[димка]

Возможно нужна доработка var a: array[1..n] of integer; b: array[1..n+1] of integer; i,j,s:integer; begin cls; for i:=1 to n do begin a:=random(25)+1; write(a,); end; writeln; b[1]:=a[1]; i:=2; while i<=n do begin s:=0; for j:=1 to i-1 do s:=s+a[j]; b:=s; inc(i) end; for i:=1 to n do write(b,) end.