Question

Задать произвольный массив из 20 чисел, среди которых есть и положительные и отрицательные элементы, и целые и дробные числа. Используя функции работы с массивами, выполнить: 1. Распечатать исходный массив 2. Добавить в конец данного массива число 9,99 3. Распечатать полученный массив 4. Найти индекс числа 18 в массиве 5. Удалить из массива пятый элемент 6. Полученный массив распечатать 7. Переставить элементы списка в обратном порядке 8. Распечатать полученный массив 9. Расположить элементы массива по возрастанию 10. Распечатать полученный массив.

Answer 1

Ответ:

a = [1, 5, -2, -6, 2.2, 7.1, -51.2, 0, 6, -23, 18 , 2, 5.7, 6,-524,123.232,-23.23, -5151251, 21351, 10]

print(a)

a.append(9.99)

print(a)

index =a.index(18)

a.pop(5)

print(a)

a = list(reversed(a))

print(a)

a.sort()

print(a)

Answer 2

Creating and Manipulating an Array in VBA:

To accomplish the tasks using VBA, we'll start by creating an array of 20 numbers, including positive and negative integers as well as decimal numbers. Then, we'll perform the specified operations.

1. Creating the Array: - We'll create an array of 20 numbers using VBA.

   Dim myArray(1 To 20) As Variant
   myArray = Array(5, -3, 7.5, -2.8, 10, -15, 18, -20, 9.99, -8, 6, -4.5, 3, -1, 2.5, -6, 4, -9, 12.5, -11)
   

2. Printing the Original Array: - We'll print the original array.

   For i = LBound(myArray) To UBound(myArray)
       Debug.Print myArray(i)
   Next i
   

3. Adding a Number to the End of the Array: - We'll add the number 9.99 to the end of the array.

   ReDim Preserve myArray(1 To UBound(myArray) + 1)
   myArray(UBound(myArray)) = 9.99
   

4. Printing the Modified Array: - We'll print the modified array.

   For i = LBound(myArray) To UBound(myArray)
       Debug.Print myArray(i)
   Next i
   

5. Finding the Index of a Number: - We'll find the index of the number 18 in the array.

   index = Application.Match(18, myArray, 0)
   Debug.Print "Index of 18: " & index
   

6. Removing the Fifth Element: - We'll remove the fifth element from the array.

   For i = 5 To UBound(myArray) - 1
       myArray(i) = myArray(i + 1)
   Next i
   ReDim Preserve myArray(1 To UBound(myArray) - 1)
   

7. Printing the Modified Array: - We'll print the modified array.

   For i = LBound(myArray) To UBound(myArray)
       Debug.Print myArray(i)
   Next i
   

8. Reversing the Array: - We'll reverse the elements of the array.

   For i = LBound(myArray) To UBound(myArray) \ 2
       temp = myArray(i)
       myArray(i) = myArray(UBound(myArray) - i + LBound(myArray))
       myArray(UBound(myArray) - i + LBound(myArray)) = temp
   Next i
   

9. Printing the Reversed Array: - We'll print the reversed array.

   For i = LBound(myArray) To UBound(myArray)
       Debug.Print myArray(i)
   Next i
   

10. Sorting the Array in Ascending Order: - We'll sort the elements of the array in ascending order.

    Call QuickSort(myArray, LBound(myArray), UBound(myArray))
    

11. Printing the Sorted Array: - We'll print the sorted array.

    For i = LBound(myArray) To UBound(myArray)
        Debug.Print myArray(i)
    Next i
    

This approach uses VBA to create, modify, and manipulate the array as per the specified tasks.