|
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
|