Решить на basic. в ответах: 1, а у меня получается - вопрос №8913427127 от Strangeeo 03.01.2023 09:39

Question

Информатика: Решить на basic. в ответах: 1, а у меня получается 2. dim mas(7) as integer mas(1) = 10: mas(2) = 5 mas(3) = 7: mas(4) = 3 mas(5) = 9: mas(6) = 2 mas(7) = 4 k = 0: m = 2 for i = 2 to 7 if mas(i) - mas(i - 1) m then k = k + 1 end if next i print k

Strangeeo · Answer

Проанализируем работу цикла:i=2Mas(i) - Mas(i-1) m ⇒ Mas(2) - Mas(1) m ⇒ 5-10 2 ⇒ -5 2 ⇒ нетi=3Mas(i) - Mas(i-1) m ⇒ Mas(3) - Mas(2) m ⇒ 7-5 2 ⇒ 2 2 ⇒ нетi=4Mas(i) - Mas(i-1) m ⇒ Mas(4) - Mas(3) m ⇒ 3-7 2 ⇒ -4 2 ⇒ нетi=5Mas(i) - Mas(i-1) m ⇒ Mas(5) - Mas(4) m ⇒ 9-3 2 ⇒ 6 2 ⇒ да; k=1i=6Mas(i) - Mas(i-1) m ⇒ Mas(6) - Mas(5) m ⇒ 2-9 2 ⇒ -7 2 ⇒ нетi=7Mas(i) - Mas(i-1) m ⇒ Mas(7) - Mas(6) m ⇒ 4-2 2 ⇒ 2 2 ⇒ нетответ: k=1...

Решить на basic. в ответах: 1, а у меня получается 2. dim mas(7) as integer mas(1) = 10: mas(2) = 5 mas(3) = 7: mas(4) = 3 mas(5) = 9: mas(6) = 2 mas(7) = 4 k = 0: m = 2 for i = 2 to 7 if mas(i) - mas(i - 1) > m then k = k + 1 end if next i print k