Дан массив M (10) . Сформировать массив N, в который выйдут квадратные корни из положительных элементов массива M. Массивы M и N распечатать
на бейсике

'Microsoft QBASIC 1.0DATA 23.45,51.8,-6.3,18,-11.9,37.2,-4,19,31.4,-11.2DIM m(1 TO 10) AS DOUBLECLSk = 0FOR i = 1 TO 10   READ m(i)   PRINT m(i); ' ';   IF m(i) > 0 THEN k = k + 1NEXT iPRINTREDIM n(1 TO k)j = 0FOR i = 1 TO 10   IF m(i) > 0 THEN      j = j + 1      n(j) = SQR(m(i))      PRINT n(j); ' '   END IFNEXT iPRINTТестовое решение 23.45  51.8 -6.3  18 -11.9  37.2 -4  19  31.4 -11.2 4.84252  7.197222  4.24264  6.09918  4.358899  5.60357