ярик471

02.11.2021 05:19 •  Информатика

Дана программа. Определить результат выполнения.

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.​