Здравствуйте. В тренировочном тесте по информатике от 20.022014 было дано задание А12, в котором требовалось определить количество ненулевых... - вопрос №991245

В программе описан одномерный целочисленный массив с индексами

от 0 до 9. В начале выполнения этого фрагмента в массиве находились числа

9, 8, 7, 6,5, 4, 3, 2, 1, 0, т. е. A[0] = 9, A[1] = 8 и т. д. Сколько элементов массива после

выполнения программы будут иметь ненулевые значения? Вот и все, что дано в условии,  с учетом фрагмента программы.

Так это же большое дело!

n:=9; for i:=0 to n do begin K := A[i]; A[K] := 0; end;

i=0 k=A[0]=9  A[9]=0  первый 0 добавили в массив, хотя там и так 0 был

i=1 k=A[1]=8 A[8]=0 

i=2 k=A[2]=7 A[7]=0

i=3 k=A[3]=6 A[6]=0

i=4 k=A[4]=5 A[5]=0

i=5 k=A[5]=0 A[0]=0

i=6 k=A[6]=0 A[0]=0

i=7 k=A[7]=0 A[0]=0

i=8 k=A[8]=0 A[0]=0

i=9 k=A[9]=0 A[0]=0

с номера 0 до 9

0 8 7 6 5 0 0 0 0 0

Всего 4 ненулевых элемента

Буду благодарна, если отметите 

Массив А не задан?