{* Задача72 *}

REM basic

' Составить программу для определения методом «Всплывающих пузырьков»
' из данных значений вектора А=( 9,6 7,4 4,1 4,0 3,8 2,5 2,4 2,2 1,7), и переменной R=2,3, значения вектора В=(9,6 7,4 4,1 4,0 3,8 2,5 2,4 2,2 1,7 2,3), . Полученные значения вектора В были расположить в порядке возрастания В=(1,7 2,2 2,3 2,4 2,5 3,8 4,0 4,1 7,4 9,6). Вычислить сумму логарифмов квадратов четных элементов вектора В. (S=24,68).


10 Dim A(9), B(10)
30 S=O:X=O
40 For I=1 To 9
50 PRINT " A(";I;")",
60 INPUT A(I)
70 B(I)=A(I)
80 Next I
90 INPUT "R="; R
100 LPRINT Using "R=##.##"; R
110 For I=1 To 9
120 LPRINT Using "A(I)=##.##"; A(I)
130 Next I
140 B(10)=R
150 For I=2 To 10
160 For J=10 To I Step -1
170 If B(J-1)>B(J) Then X=B(J): B(J)=B(J-1): B(J-1)=X
180 Next J
160 Next I
200 For I=1 To 10
210 LPRINT Using "B(I)=##.##"; B(I)
220 If I Mod 2=0 Then S=S+LOG(B(I)^2)
230 Next I
240 LPRINT Using "S=##.##"; S
250 End