Сформировать новый массив: элемент Вк равен сумме элементов массива А с номерами от 1 до K - Pascal

Формулировка задачи:

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

Решение задачи: «Сформировать новый массив: элемент Вк равен сумме элементов массива А с номерами от 1 до K»

Листинг программы

For i:=1 to N do
Begin
  Sum:=0;
  For j:=1 to i do Sum:=Sum+A[j];
  B[i]:=Sum;
End;

Объяснение кода листинга программы

В цикле от 1 до N происходит итерация по каждому элементу массива A.
Для каждого элемента массива A с номером i, в каждой итерации, происходит следующая последовательность действий:
- Переменная Sum инициализируется значением 0. Она будет использоваться для хранения суммы элементов массива A.
- Вторая вложенная цикла от 1 до i происходит итерацию по каждому элементу массива A с номерами от 1 до i.
- Значение каждого элемента массива A добавляется к переменной Sum.
- После завершения вложенного цикла, значение переменной Sum присваивается элементу массива B с индексом i.
По завершении внешнего цикла, в массиве B будут храниться значения, полученные путем суммирования элементов массива A с номерами от 1 до их соответствующих индексов.