1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | INPUT "vvedite kol-vo elementov ", nDIM a(n)RANDOMIZE TIMERPRINT "posledovatelnost"FOR i = 1 TO n a(i) = INT(RND * 100) PRINT a(i);NEXTPRINTp = a(1)FOR i = 2 TO n IF a(i) > a(i - 1) THEN k1 = k1 + 1 IF a(i) < a(i - 1) THEN k2 = k2 + 1 p = p * a(i)NEXTIF (k1 <> n - 1) AND (k2 <> n - 1) THEN PRINT "srednee geometricheskoe="; p ^ (1 / n) ELSE PRINT "posledovatelnost uporyadochena" |
Тестирование выполнено в программе QB64 ( Скачать )