20. Следующий фрагмент программы выполняет

… n = Ubound(a) m =(n+1)\2 : j = n For i =0 To m r =a(i) : a(i)=a(j) a(j)=r : j=j-1 Next i …

1. перестановку элементов массива а в обратном порядке

2. удаление из массива а первых m элементов

3. замену первой половины элементов массива а значениями его второй половины

4. обмен значениями соседних элементов в массиве а

21. В результате выполнения следующего фрагмента программы происходит

… j = -1 For i = 0To 10 If a(i)<0 Then j =j+1 : b(j)=a(i)^2 End If Next i …

1. формирование массива b из квадратов отрицательных элементов массива a

2. упорядочение массива а по возрастанию

3. формируется новый массив b по возрастанию

4. формируется новый массив b по убыванию

22. В результате выполнения следующего фрагмента программы в текстовом поле будет значение

… Dim a(31)As Integer a(0) = 0 For i = 31 To 1 Step -1 a(i) = i +1 Next i TextBox1.Text= CStr(a(31)) …

1. 0

2. 30

3. 31

4. 32

23. В результате выполнения следующего фрагмента программы выводится

… Dim a(6) As Integer a(0)=0 For i =1 To 3 For j=1 To -3 a(j) = a(j)+ 1 Next j Next i TextBox1.Text = CStr(a(6)) …

1. 0

2. 9

3. 3

4. сообщение об ошибке

Тема 4.7. Программа алгоритмов формирования и обработки одномерных массивов Страница 211