{* Задачча19 *}

REM basic

' Возвести положительные элементы одномерного массива в 3-ю степень, а не-положительные - в 5-ю степень


CLS
INPUT "Введите число элементов массива"; n
Dim  a(n)
For i=1 To n
PRINT "Введите а("; i; ")"
INPUT а(i)
Next i
For i=1 To n
PRINT a(i);
Next i
PRINT
For i=1 To n
If a(i)>0 Then a(i)=a(i)^3 Else a(i)=a(i)^5
Next i
For i=1 To n
PRINT a(i);
Next i
End