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

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

80 * 60 = 4800 символов на 1 странице

4800 * 450 = 2160000 символов в книге

обычно 1 символ кодируется 1 байтом информации, значит

в книге 2160000 байт, переведем их в мегабайты

2160000 : 1024 = 2109,375 кб (килобайт)

2109,375 : 1024 = 2,06 мб (мегабайт)

следовательно рукопись на 1 дискету не поместится, для нее необходимо 2 дискеты.

 

как правильно пишется триугольник или треугольник?

  треугольник