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;

Чему будут равны элементы этого массива?

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;