Определить сумму элементов массива M(n) с нечетными номерами
Категория: Basic
2011-09-26 16:43:40
Вывести массив и полученную сумму. Упорядочить массив X(n) по не убыванию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. Значения буквенных переменных задавать с клавиатуры
code: #basic
CLS INPUT "Vvedite kol-vo elementov massiva:", n DIM x(n) AS INTEGER FOR i = 1 TO n x(i) = INT(RND * 61) PRINT x(i); IF i MOD 2<>0 THEN s=s+x(i) NEXT PRINT PRINT "s=";s FOR i = 1 TO n FOR j = 2 TO n IF x(j) > x(j-1) THEN SWAP x(j), x(j-1) NEXT NEXT PRINT FOR i = 1 TO n PRINT x(i); NEXT END
Поделиться: