Выполнить действия над массивами. В таблице при формулировании задания для разъяснения его сути справа отображены примеры исходных Х и результирующих Y массивов с конкретными числами. Программа, естественно, должна обрабатывать любые числа. Предельная размерность массивов до 10, реальная размерность – N. Программа должна предъявлять исходные и новые (если требуется) массивы.
1 2 | Пример: 255844Результат: 2,3, 5,6 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | INPUT "vvedite kol-vo elementov ", nDIM a(n + 1)RANDOMIZE TIMERFOR i = 1 TO n a(i) = INT(RND * 10)NEXTPRINT "massiv"FOR i = 1 TO n PRINT a(i);NEXTPRINTFOR i = 1 TO n IF a(i) = a(i - 1) OR a(i) = a(i + 1) THEN PRINT i;: f = 1NEXTIF f = 0 THEN PRINT "ryadom net odinakovyh elementov" |
Тестирование выполнено в программе QB64 ( Скачать )