В Delphy (одномерные массивы)

[Polusha]

Дан массив А размера N. Сформировать новый массив того же размера по следующему правилу: элемент В k-тый равен сумме элементов массива А с номерами от 1 до k.

[Grag]

Легко! Обращайся!

С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Филантроп]

var a,b:array[1..100 ] of integer;
n,i,k:integer;
begin
randomize;
readln(n);
for i:=1 to n do begin
a[i]:=random(30);
write(a[i]:4);
end;
for i:=1 to n do begin
b[i]:=0;
for k:=1 to i do
b[i]:=b[i]+a[k];
end;
writeln;
for i:=1 to n do
write(b[i]:4);
readln;
end.