В программе описан одномерный целочисленный массив с индексами от 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 и т. д. Сколько элементов массива после выполнения программы будут иметь ненулевые значения?

//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 - колво нулей