Вопрос по информатике:

Помогите с задачками плз
1) В программе описан одномерный целочисленный массив с индексами от 0 до 100. Ниже представлен фрагмент программы, обрабатывающей данный массив:
n:= 100;
for i:=0 to 100 do A[i]:=i;
for i:=1 to 100 do begin
A[i]:= A[i]-A[i-1];
end;
s:=A[90];
Укажите значение, которое после выполнения указанного фрагмента программы будет записано в переменную s.
1) 0 2) 30 3) 45 4) 550

2) В программе описан одномерный целочисленный массив с индексами от 0 до 12. Ниже представлен фрагмент программы, обрабатывающей данный массив:
s := 0;
n := 12;
for i:=0 to 12 do begin
if A[12–i]–A[i] = A[i] then
s:=s+3*A[i];
end;
В начале выполнения этого фрагмента в массиве находились числа 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24 т.е. A[0] = 0, A[1] = 2 и т. д. Чему будет равно значение переменной s после выполнения данной программы?
1) 12 2) 18 3) 24 4) 156

3) В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив:
n := 10;
for i:=0 to 10 do begin
K := A[i];
A[K] := 0;
end;
В начале выполнения этого фрагмента в массиве находились числа 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0, т. е. A[0] = 10, A[1] = 9 и т. д. Сколько элементов массива после выполнения программы будут иметь ненулевые значения?
1) 5 2) 2 3) 3 4) 4