zadach275.BAS

{* Задача275 *}

REM basic

' Cгенерировать числа, чтобы в массиве выходили числа формата +-##.##.


CLS : RANDOMIZE TIMER
5 INPUT "Vvedite n: ", n
If n < 1 GoTo 5
Dim A!(n)
  For i = 1 To n
      A!(i) = INT(RND * 19998 - 9999) / 100
      PRINT A!(i)
  Next
End