Какие действия выполняет данный фрагмент программы for i:=1 to 10 do if A[i}>0 then k:=k+1; writeln (k); Пожалуйста помогите)
Если k=0 до цикла, то вычисляется количество положительных элементов массива.
Прибавляет к числу k количество положительных элементов массива и выводит число k.