Помогите решить задачу на Basic. В ответах: 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) gt; m THEN
k = k + 1
END IF
NEXT i
PRINT k

Задать свой вопрос
Viktor Dvorenchikov
дебажить не пробовали?
Юлия Насилова
взяла ваш код, немного подправила чтобы запустился на Vbscript. Выдает 1. Значит алговритм сам верный
1 ответ
Проанализируем работу цикла:
i=2
Mas(i) - Mas(i-1) gt; m  Mas(2) - Mas(1) gt; m  5-10 gt; 2  -5 gt; 2  нет
i=3
Mas(i) - Mas(i-1) gt; m  Mas(3) - Mas(2) gt; m  7-5 gt; 2  2 gt; 2  нет
i=4
Mas(i) - Mas(i-1) gt; m  Mas(4) - Mas(3) gt; m  3-7 gt; 2  -4 gt; 2  нет
i=5
Mas(i) - Mas(i-1) gt; m  Mas(5) - Mas(4) gt; m  9-3 gt; 2  6 gt; 2  да; k=1
i=6
Mas(i) - Mas(i-1) gt; m  Mas(6) - Mas(5) gt; m  2-9 gt; 2  -7 gt; 2  нет
i=7
Mas(i) - Mas(i-1) gt; m  Mas(7) - Mas(6) gt; m  4-2 gt; 2  2 gt; 2  нет

Ответ: k=1
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт