B19 - Обработка массивов

1. В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.
for j:=0 to 10 do
A[j]:=2+j;
for j:=0 to 4 do begin
A[10-j]:=2*A[10-j];
A[j]:=A[j+1]+4;
end;
Чему будут равны элементы этого массива?
7 8 9 10 11 7 16 18 20 22 24
7 8 9 10 11 16 18 20 22 24
2 3 4 5 6 7 16 18 20 22 24
3 4 5 6 7 7 16 18 20 22 24
2. В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив:
  s:=0;
n:=10;
for i:=1 to n do begin
s:=s+A[i]-A[i-1];
end;
В начале выполнения этого фрагмента в массиве находились числа 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, т.е. А[0]=0, А[1]=2 и т.д. Чему будет равно значение переменной s после выполнения данной программы?
Ответ: 
3. В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив:
  s:= 0;
n:= 10;
for i:=0 to n do begin
if і = n-i then s:=s+A[i]+A[i+1];
end;
В начале выполнения этого фрагмента в массиве находились числа 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, т.е. А[0]=0, А[1]=10 и т. д. Чему будет равно значение переменной s после выполнения данной программы?
Ответ: 
4. В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив:
  s:=0;
n:=10;
for i:=0 to n-1 do begin
s:=s+A[i]-A[i+1]
end;
В начале выполнения этого фрагмента в массиве находились трёхзначные натуральные числа, не делящиеся на 20. Какое наибольшее значение может иметь переменная s после выполнения данной программы?
Ответ: 
5. В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 5; 1; 6; 7; 8; 8; 7; 7; 6; 9 соответственно, т.е. A[0]=5; A[1]=1 и т.д. Определите значение переменной c после выполнения следующего фрагмента программы:
  c := 0;
for i := 1 to 9 do
if A[i-1] >= A[i] then begin
t:= A[i];
A[i]:= A[i - 1];
A[i-1]:= t
end
else
c:= c + 1;
Ответ: 
6. В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 7; 5; 3; 4; 8; 8; 9; 7; 6; 2 соответственно, т.е. A[0]=7; A[1]=5 и т.д. Определите значение переменной c после выполнения следующего фрагмента программы:
  c := 0;
for i := 1 to 9 do
if A[i-1] < A[i] then begin
t:= A[i];
A[i]:= A[i - 1];
A[i-1]:= t
end
else
c:= c + 1;
Ответ: 
7. В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 8, 4, 3, 0, 7, 2, 1, 5, 9, 6 соответственно, т.е. A[0]=8; A[1]=4 и т.д. Определите значение переменной s после выполнения следующего фрагмента программы:
  s := 0;
for j := 0 to 8 do
if A[j] > A[j+1] then begin
s := s + 1;
t := A[j];
A[j] := A[j+1];
A[j+1] := t;
end;
Ответ: 
8. В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив:
  s:=29;
n:=10;
for i:=0 to n-1 do begin
s:= s + A[i] - A[i+1]
end;
Известно, что в начале выполнения этого фрагмента в массиве находилась возрастающая последовательность чисел, то есть A[0]<A[1]<…<A[10]. Какое наибольшее значение может иметь переменная s после выполнения данной программы?
Ответ: 
9. Ниже представлен фрагмент программы, обрабатывающей одномерный целочисленный массив с индексами от 0 до 10. Известно, что в начале выполнения этого фрагмента в массиве находилась возрастающая последовательность чисел, то есть A[0]<A[1]<…<A[10]. Какое наибольшее значение может иметь переменная s после выполнения данной программы?
  s := 27;
n := 10;
for i:=0 to n-1 do begin
s:= s + A[i] - A[i+1] + 2
end;
Ответ: 
10. Ниже представлен фрагмент программы, обрабатывающей одномерный целочисленный массив с индексами от 0 до 10. Известно, что в начале выполнения этого фрагмента в массиве находилась возрастающая последовательность чисел, то есть A[0]<A[1]< …<A[10]. Какое наименьшее значение может иметь переменная s после выполнения данной программы?
  s := 32;
n := 10;
for i:=0 to n-1 do begin
s:= s + A[i+1] - A[i] + 1
end;
Ответ: