Внимательно посмотрите на практическую работу «Воробьи» (стр. 139) и ответьте на во выполните это задание практически , кто имеет доступ к компьютеру): А) Сколько воробьев питает Tekla на следующий день? (Б) Сколько воробьев кормили дети на следующий день?

Var
    a: array[0..10] of integer;
    i, n, k: integer;
//    b: array[1..4, 1..4] of integer;

begin
    Println();
    Println(1);
    for i := 0 to 10 do
        A[i] := i + 1;
    PrintLn(a);
    Println();
    for i := 1 to 10 do
    begin
        A[i] := A[i - 1];
        PrintLn(a);
    end;
    
    Println();
    Println(2);
    for i := 0 to 10 do
        A[i] := i + 1;
    PrintLn(a);
    Println();
    for i := 10 downto 0 do
    begin
        A[i] := A[10 - i];
        PrintLn(a);
    end;
end.

Тут вывод трасировок последних циклов

1
[1,2,3,4,5,6,7,8,9,10,11]

[1,1,3,4,5,6,7,8,9,10,11]
[1,1,1,4,5,6,7,8,9,10,11]
[1,1,1,1,5,6,7,8,9,10,11]
[1,1,1,1,1,6,7,8,9,10,11]
[1,1,1,1,1,1,7,8,9,10,11]
[1,1,1,1,1,1,1,8,9,10,11]
[1,1,1,1,1,1,1,1,9,10,11]
[1,1,1,1,1,1,1,1,1,10,11]
[1,1,1,1,1,1,1,1,1,1,11]
[1,1,1,1,1,1,1,1,1,1,1]

2
[1,2,3,4,5,6,7,8,9,10,11]

[1,2,3,4,5,6,7,8,9,10,1]
[1,2,3,4,5,6,7,8,9,2,1]
[1,2,3,4,5,6,7,8,3,2,1]
[1,2,3,4,5,6,7,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,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)