Массив из десяти элементов заполнили, а потом изменили. Чему будет равна сумма значений элементов массива после выполнения фрагмента программы?for i := 1 to 10 doA[i]:=i;for i := 2 to 10 doA[i]:= A[i - 1];

Все 1. То есть весь массив будет состоять из единиц.

Это происходит из-за этой строки:

A[i]:= A[i - 1];

Она нам говорит - замени этот элемент на предыдущий.

Смотрим for, первый элемент у нас с индексом 2, в массиве - это число 2.

Предыдущие 1 - 2 заменяют на 1.

И так далее. Переходят к третьему элементу, но теперь у нас все элементы позади него - являются единицами.