Например, если A= {2,4-9,5,6,-3,2}, результат: 2,6,5,4,2.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | INPUT "vvedite kol-vo elementov ",n
DIM a(n)
RANDOMIZE TIMER
FOR i=1 TO n
a(i)=INT(RND*20)-10
NEXT
PRINT"massiv"
FOR i=1 TO n
PRINT a(i);
NEXT
PRINT
PRINT "resultat"
FOR i= n TO 1 step-1
IF a(i)>0 THEN PRINT a(i);
NEXT
|
Похожие записи/страницы:
- Напечатать все числа из массива, квадрат которых превышает 7, но меньше 50 - Basic(Бейсик)
- Напечатать все числа из очереди, квадрат которых превышает 7, но меньше 50. - QBasic(Бейсик)
- Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю.…
- Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю.…
- Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю.…
- Найти произведение элементов кратных трем- QBasic(Бейсик)