сортировка одномерного масива
раньше на бейсике не программировала и не знаю как описать, заполнить... вывести результат...
сортирвка одномерного массива пузырьковой сортировкой...
помогите плз.
Dim Array(10) As Integer
Dim A(N)
For I = 1 To N
INPUT A(I)
Next I
Do
X = 0
For I = 1 To N - 1
If A(I) > A(I + 1) Then
SWAP A(I), A(I + 1)
X = I
End If
Next I
Loop Until X = 0
Print
For I = 1 To N
Print A(I);
Next I
сортирвка одномерного массива пузырьковой сортировкой...
помогите плз.
Dim Array(10) As Integer
Dim A(N)
For I = 1 To N
INPUT A(I)
Next I
Do
X = 0
For I = 1 To N - 1
If A(I) > A(I + 1) Then
SWAP A(I), A(I + 1)
X = I
End If
Next I
Loop Until X = 0
For I = 1 To N
Print A(I);
Next I