Пожалуйста дайте полное решение!!!!10) В программе описан одномерный целочисленный массив...

Question

Пожалуйста дайте полное решение!!!!10) В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:
for i:=0 to 10 do
A[i]:= i + 1;
for i:=1 to 10 do
A[i]:= A[i-1];
Как изменяются элементы этого массива?
1) все элементы, кроме последнего, сдвигаются на 1 элемент вправо
2) все элементы, кроме первого, сдвигаются на 1 элемент влево
3) все элементы окажутся равны 1
4) все элементы окажутся равны своим индексам

Answer 1

Все элементы будут равны единице.
Сначала они будут заполнены значением, большим своего индекса на 1, а потом каждому элементу, начиная со второго (который А[1]) будет присвоено значение предыдущего элемента и 1 распространится везде.

Для проверки была написана программа с отладочной выдачей.

var
  a:array[0..10] of integer;
  i:integer;
begin
  for i:=0 to 10 do begin a[i]:=i+1; Write(a[i],' ') end;
  Writeln;
  Write(a[0],' ');
  for i:=1 to 10 do begin a[i]:=a[i-1]; Write(a[i],' ') end
end.

Результаты

1 2 3 4 5 6 7 8 9 10 11
1 1 1 1 1 1 1 1 1 1 1

Ответ: 3)