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

Удалить все отрицательные элементы массива и расположить оставшиеся по убыванию
Гость
Ответ(ы) на вопрос:
Гость
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)
Не нашли ответ?
Ответить на вопрос
Похожие вопросы