Задание

В программе используется одномерный целочисленный массив A с индексами от 1 до 10. Значения элементов равны 7; 3; 4; 8; 6; 9; 5; 2; 0; 1 соответственно, т. е. A[1] = 7; A[2] = 3 и т. д.

Определите значение переменной j после выполнения следующего фрагмента программы.

j := 0;

for k := 2 to 10 do

begin

if A[k] <= A[1] then

begin

A[1] := A[k];

j := j + k

end

end;