Дан одномерный массив. Найти кол-во соседних трехзначных пар. - VB
Формулировка задачи:
Дан одномерный массив. Найти кол-во соседних трехзначных пар.
Решение задачи: «Дан одномерный массив. Найти кол-во соседних трехзначных пар.»
textual
Листинг программы
ReDim x(n) As Long For i = 1 To n - 1 a = 100 <= x(i) And x(i) <= 999 b = 100 <= x(i + 1) And x(i + 1) <= 999 If a And b Then k = k + 1 Next Print "k ="; k