шунгит

30.05.2021 15:57 •  Информатика

Дана программа. Определить результат выполнения. 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.