Расположить в массиве в(20) сначала все положительные а затем все отрицательные элементы массива а(20) бейсик

'ms-dos qbasic 1.0 dim a(1 to 20) as single, b(1 to 20) as single cls randomize timer print "massiv a" j = 0 for i = 1 to 20     a(i) = 10 * rnd - 5     print a(i);     if a(i) > 0 then           j = j + 1           b(j) = a(i)     end if next i for i = 1 to 20     if a(i) < = 0 then           j = j + 1           b(j) = a(i)     end if next i print print "massiv b" for i = 1 to j     print b(i); next i print тестовое решение: massiv a -1.726111  1.835247 -4.176585  4.217188  4.836039  4.953975  .551706  .2788973 -1.588834  1.447831  1.91242 -3.830101  3.318729  1.483444  .0306803 -.3601742   1.934826  1.057516 -2.458627  .9090161 massiv b   1.835247  4.217188  4.836039  4.953975  .551706  .2788973  1.447831  1.91242   3.318729  1.483444  .0306803  1.934826  1.057516  .9090161 -1.726111 -4.176585 -1.588834 -3.830101 -.3601742 -2.458627

Компу так удобнее у него есть два понятия: "ток есть ( 1 )" и "тока нет ( 0 )"