Из элементов массива А сформировать элементы массива В по правилу:...

Question

Из элементов массива А сформировать элементы массива В по правилу: B[i]=A[1]+A[2]+...+A[i].
Напишите пожалуйста!!!

Answer 1

Var
A,B:array[1..13] of integer;
i,j:integer;
Begin
Write('A: ');
For i:= 1 to 13 do
Begin
A[i]:=random(13)+1;
Write(A[i],' ')
End;
WriteLn;
Write('B: ');
For j:= 1 to 13 do
 Begin
 For i:= 1 to j do
  B[j]:=B[j]+A[i];
 Write(B[j],' ')
 End
End.