Дана программа. Определить результат выполнения. - вопрос №0220821191 от v0632039813 15.02.2022 15:15

Question

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

v0632039813 · Answer

is the one ☝️ on my side who wants it for...

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

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