Page 89 - 4588
P. 89
n = InputBox("Vvestu klkist elementiv N")
ReDim A(n)
For i = 1 To n
A(i) = InputBox("Vvestu A(" & i & ")")
Next i
For i = 1 To n
Cells(2, i).Value = A(i)
Next i
Cells(1, 1) = " Vhidnyj"
Cells(1, 2) = " Masuv"
Cells(3, 1) = " Vyhidnyj"
Cells(3, 2) = " Masuv"
Amax = A(1): Amin = A(1)
Nmax = 1: Nmin = 1
For i = 2 To n
If Amax < A(i) Then Amax = A(i): Nmax = i
If Amin > A(i) Then Amin = A(i): Nmin = i
Next i
A(Nmax) = Amin
A(Nmin) = Amax
For i = 1 To n
Cells(4, i).Value = A(i)
Next i
End Sub
Private Sub CommandButton2_Click()
For i = 1 To 40
Cells(1, i) = " "
Cells(2, i) = " "
Cells(3, i) = " "
Cells(4, i) = " "
Next i
End Sub
Виконайте програму і збережіть її у своїй папці.
Задачі для самостійного опрацювання
1. Виконайте самостійно завдання по варіантах:
Дано вхідний одномірний масив А(n), що складається не
менше як з десяти елементів (додатніх, відємних і нульових).
Вихідний масив отримати, виконавши завдання по варіанту і
вивести обидва масиви – вхідний і вихідний в робочий аркуш
Excel.
88
