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

1. В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив:
s:= 0;
n:= 10;
for j:=0 to n do begin
if A[n-j]-A[j] > A[j] then
s:=s+A[j];
end;
В начале выполнения этого фрагмента в массиве находились числа
  0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100,
т.е. А[0]=0, А[1]=10 и т.д. Чему будет равно значение переменной s после выполнения данной программы?
Ответ: 
2. В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив:
s:=0;
n:=10;
for j:=1 to n do begin
s:=s+A[j]-A[j-1];
end;
В начале выполнения этого фрагмента в массиве находились числа
  0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20,
т.е. А[0]=0, А[1]=2 и т.д. Чему будет равно значение переменной s после выполнения данной программы?
Ответ: 
3. В программе описан одномерный целочисленный массив A с индексами от 1 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.
for j:=1 to 10 do 
A[j]:=2*j;
for j:=1 to 10 do begin
k:=2*A[j]+3;
A[10-j+1]:=k;
end;
Чему будут равны элементы этого массива?
7 11 15 19 23 27 31 35 39 43
17 25 33 41 49 23 19 15 11 7
5 9 13 17 21 25 29 33 37 41
43 39 35 31 27 23 19 15 11 7
4. В программе описан одномерный целочисленный массив с индексами от 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 после выполнения данной программы?
Ответ: 
5. В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив:
  s:=0;
n:=10;
for i:=0 to n-3 do begin
s:=s+A[i]-A[i+3]
end;
В начале выполнения этого фрагмента в массиве находились двухзначные натуральные числа. Какое наибольшее значение может иметь переменная s после выполнения данной программы?
Ответ: 
6. В программе используется одномерный целочисленный массив 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;
Ответ: 
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. Известно, что в начале выполнения этого фрагмента в массиве находилась возрастающая последовательность чисел, то есть 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;
Ответ: 
9. Ниже представлен фрагмент программы, обрабатывающей одномерный целочисленный массив с индексами от 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;
Ответ: 
10. Ниже представлен фрагмент программы, обрабатывающей одномерный целочисленный массив с индексами от 0 до 10. Известно, что в начале выполнения этого фрагмента в массиве находилась возрастающая последовательность чисел, то есть A[0]<A[1]<…<A[10]. Какое наибольшее значение может иметь переменная s после выполнения данной программы?
  s := 15;
n := 10;
for i:=0 to n-1 do begin
s:= s + A[i] - A[i+1] + 3
end;
Ответ: