Вывести все четные числа от m до М
2009-11-24 07:00 Александр
Вывести все четные числа от m до М
Даны целые числа а1…аn. Пусть m и М— наибольшее и наименьшее из них. Вывести все четные числа от m до М, не встречающиеся среди данных в порядке убывания. Для вывода массива пользоваться элементом управления List.
Dim a(0 To 20) As Integer
Dim i As Byte
Dim k As Integer
Dim max As [...]