Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.