Найти минимальный элемент и проверить, являются ли все элементы массива различными - VB
Формулировка задачи:
Создать одномерный массив и заполнить его случайными 10 числами в интервале от 0 до 30, найти минимальный элемент и проверить являются ли все элементы массива различными.
Решение задачи: «Найти минимальный элемент и проверить, являются ли все элементы массива различными»
textual
Листинг программы
For i = 1 To 9 For j = i + 1 To 10 If a(i) = a(j) Then Print "одинаковые есть": Exit Sub Next j Next i Print "нет одинаковых" End Sub