Question

В программе описан одномерный целочисленный массив с индексами от 0 до 9. Ниже представлен фрагмент программы, обрабатывающей данный массив: n := 9; for i:=0 to n do begin K := A[i]; A[K] := 0; end; В начале выполнения этого фрагмента в массиве находились числа 9,8,7,6,5,4,3,2,1,0  т. е. A[0] = 9, A[1] = 8 и т. д. Сколько элементов массива после выполнения программы будут иметь ненулевые значения?

Answer 1

//PascalABC.NET версия 3.3.5.1636 от 10.03.18
//Если программа не запускается, то обновите версию

const
    n = 9;

var
    a: array[0..n] of integer;
    i, k: integer;

begin
    for i := 0 to n do begin
        a[i] := n - i;
        write(a[i], ',');
        end;
        writeln;
    
    for i := 0 to n do
    begin
        K := A[i];
        A[K] := 0;
    end;
    
    k := 0;
    for i := 0 to n do
    begin
        write(a[i], ',');
        if a[i] = 0 then k := k + 1;
    end;
    writeln;
    writeln('k=',k);
end.

Вывод
9,8,7,6,5,4,3,2,1,0, - изначальный массив
0,8,7,6,5,0,0,0,0,0, - после изменения
k=6 - колво нулей

Answer 2

Давайте рассмотрим каждый шаг выполнения программы:

1. Итерация с i = 0:

   • K = A[0] = 9
   • A[9] = 0

2. Итерация с i = 1:

   • K = A[1] = 8
   • A[8] = 0

3. Итерация с i = 2:

   • K = A[2] = 7
   • A[7] = 0

4. Итерация с i = 3:

   • K = A[3] = 6
   • A[6] = 0

5. Итерация с i = 4:

   • K = A[4] = 5
   • A[5] = 0

6. Итерация с i = 5:

   • K = A[5] = 0
   • A[0] = 0

7. Итерация с i = 6:

   • K = A[6] = 0
   • A[0] = 0

8. Итерация с i = 7:

   • K = A[7] = 0
   • A[0] = 0

9. Итерация с i = 8:

   • K = A[8] = 0
   • A[0] = 0

10. Итерация с i = 9:

• K = A[9] = 0
• A[0] = 0

После выполнения программы, массив примет следующий вид: A[0] = 0, A[1] = 8, A[2] = 7, A[3] = 6, A[4] = 5, A[5] = 0, A[6] = 0, A[7] = 0, A[8] = 0, A[9] = 0.

Таким образом, элементы массива с индексами 1, 2, 3, и 4 будут иметь ненулевые значения, т.е. четыре элемента будут содержать ненулевые значения после выполнения программы.