Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого b[i]=a[1]+.+a[i] - Pascal

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

Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого равен b[i]=a[1]+a[2]+...+a[i].

Решение задачи: «Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого b[i]=a[1]+.+a[i]»

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

program pr;
var
a:array of integer;
c:array of integer;
i,n,sum:integer;
begin
sum:=0;
writeln('Ввелите размер массива');
readln(n);
setlength(a,n);
setlength(c,n);
for i:=0 to n-1 do 
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
for i:=0 to n-1 do 
begin
sum:=sum+a[i];
c[i]:=sum;
write(c[i]:3);
end;
end.

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

В данном коде объявлены следующие переменные:

a: array of integer (массив целых чисел)
c: array of integer (массив целых чисел)
i, n, sum: integer (переменные для хранения индекса, размера массива и суммы соответственно) Программа начинается с инициализации переменной sum значением 0. Затем программа запрашивает у пользователя размер массива и выделяет под него память. Далее следует цикл for, который выполняется n-1 раз (где n - размер массива). Внутри этого цикла генерируется случайное число от 0 до 20 и присваивается переменной a[i]. Затем выводится значение a[i] с помощью функции write. После завершения первого цикла начинается второй цикл for. Он также выполняется n-1 раз. Внутри этого цикла переменная sum увеличивается на значение a[i], а затем значение sum присваивается переменной c[i]. Также выводится значение c[i] с помощью функции write. В конце программы выводится значение sum.