Какие действия выполняет данный фрагмент программы for i:=1 to 10 doif A[i}>0 then k:=k+1;writeln (k);Пожалуйста Пожалуйста посчитайте)