Question

Здравствуйте. Помогите,пожалуйста:
1. Представленный ниже фрагмент программы обрабатывает элементы
одномерного целочисленного массива A с индексами от 1 до 10. Перед
началом выполнения данного фрагмента эти элементы имели значения 2, 3, 5,
4, 10, 7, 5, 6, 12, 9 (т.е. A[1]=2, A[2]=3... A[10]=9). Покажите, как изменяется
переменная sv и определите значение переменной s после выполнения этого
фрагмента
n := 10;
s := 0;
for I := 2 to n do
begin
If A[i-1] A[i] := A[i]- A[i-1];
s := s + A[i];
end;
end;

2. Практическая работа.Каждую задачу сделать в двух вариантах: с постоянными значениями и значениями, вводимыми пользователями
1) Дана последовательность действительных чисел. Выяснить, будет ли
она убывающей
2) Дан массив из N действительных чисел. Подсчитать сколько в нем
положительных, отрицательных и нулевых элементов
3) Дан массив целых чисел. Переставить элементы этого массива в
обратном порядке

Заранее огромное спасибо большое!!!