Замените каждый элемент массива суммой всех последующих (с ассемблерной вставкой) - Turbo Pascal

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

Замените каждый элемент массива суммой всех последующих?

Решение задачи: «Замените каждый элемент массива суммой всех последующих (с ассемблерной вставкой)»

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

const n = 10;
var
  A : array[1 .. n] of integer;
  i : integer;
  {s : integer;}
begin
  for i := 1 to n do
  begin
    write('A[',i:2,'] = '); readln(A[i]);
  end;
 
  asm
    xor dx, dx
    xor ax, ax
    lea si, a
    add si, 2*(n - 1)
    mov cx, n
  @@1:
    mov dx, word ptr [si]
    mov word ptr [si], ax
    add ax, dx
    sub si, 2
    loop @@1
  end;
  for i := 1 to n do
    write(a[i]:4);
end.

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

Данный код на Turbo Pascal выполняет следующие действия:

Объявляет переменные: n (количество элементов в массиве), A (массив целых чисел), i (индекс элемента массива), s (переменная для хранения суммы).
Создает массив A размером n.
Выводит на экран каждый элемент массива A с помощью цикла for i := 1 до n.
Вложенным циклом for перебирает все последующие элементы массива A и вычисляет их сумму.
Выводит на экран сумму каждого подмассива.
Завершает работу программы.