Дан массив из 10 элементов. Найти номера всех положительных элементов и образовать из них массив

Категория: Basic

2011-10-24 14:24:07

code: #basic

DIM newArr(10)
count=1
FOR i=1 TO 10
  IF a(i)>0 THEN
    newArr(count)=a(i)
    count = count +1
  END IF
NEXT i
REDIM preserve newArr(1 TO count-1)

автор: Toxa33rus

Поделиться:

Sample Code