Дана программа. Определить результат выполнения Дана программа. Определить результат выполнения. program N02; const A: array [1..10] of integer = (1,36,2,18,3,12,4,9,6,6); var i,k: integer; begin k:=0; for i:=1 to 7 do if A[i]<A[i+1] then k:=k+1; write(k) end.