Вывести числа кратные 3 по убыванию с указанием порядковых номеров
Вывести числа кратные 3 по убыванию с указанием порядковых номеров
2009-11-27 07:00 Александр
Вывести числа кратные 3 по убыванию с указанием порядковых номеров
Option Explicit
‘Полное задание:
‘Ввести массив из N натуральных чисел. Из них вывести только числа кратные 3. _
Вывод чисел должен быть по убыванию их значений с указанием порядковых номеров при вводе.
‘Пример.
‘Исходный массив: 6 8 3 5 9 18 4
‘Полученный массив: 18(6) 9(5) 6(1) 3(3)
Private Sub Command1_Click()
Dim i As [...]