Удалить все отрицательные элементы массива и расположить оставшиеся по убыванию

Cls input n dim a(n) s=0 for i=1 to n   input a(i) next i for i=1 to n   if a(i)> 0 then s=s+1 next i if s> 0 then   p=1: t=0   dim b(s)   for i=1 to s     for j=p to n       t=t+1       if a(j)> 0 then b(i)=a(j) goto 1     next j 1: p=t   next i   for i=1 to s     for j=1 to s       if b(i)< b(j) then swap b(i),b(j)     next j   next i for i=1 to s   print b(i); next i end if

цели создания модели бывают такие:

сохранить информацию о наблюдаемом объекте

передать информацию о нём другим людям

показать,как может выглядеть проектируемый объект

испытать на модели работу объекта ,если испытание объекта-оригинала

опасно или дорого

решить