Что будет результатом выполнения фрагмента программы: k:=0; For i:=1 to n do if a[i] больше 0 then k:=k+1;