Дан одномерный массив числовых значений, насчитывающий N элементов. Исключить все отрицательные элементы

Категория: Basic

2011-11-15 16:33:34

code: #basic

INPUT (n)
DIM a,b(n)
FOR i=1 TO n
INPUT a(i)
NEXT
FOR i=1 TO n
IF a(i)>=0 THEN k=k+1:b(k)=a(i)
NEXT
FOR i=1 TO k
PRINT b(i);" ";
NEXT

автор: кот Бегемот

Поделиться:

Sample Code