В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 2, 7, 3, 12, 6, 10, 13, 8, 3, 5, т.е. A[0]=2, A[1]=7 и т.д. Определите значение переменной s после выполнения следующего фрагмента программы:
n:= 10;
s:= 0;
for i:=1 to n-1 do begin
if A[i] > A[i-1] then
A[i]:= 2*A[i] - A[i-1];
s:= s + A[i]
end;