Сообщение о любом виде внешней памяти
​

Объяснение:

F1...F12 функциональные клавиши в верхнем ряду стандартной клавиатуры. Используются для запуска привязанных к ним стандартных функций. Действие клавиш зависит от активной в данный момент программы.  Как правило переименовать/редактировать, F3 - найти/замениить, F4 - работает по разному.

Красные подписи на ваших функциональных клавишах означают управление звуком и будут работать только при установке специального драйвера (программы, позволяющей компьютеру задействовать все функции устройства) этой конкретной клавиатуры. Задействованы они могут быть только при нажатой дополнительной кнопке с подписью типа "Fn" тоже красного цвета.

Dim A(100) As Integer, Odin As Boolean
Dim k As Integer , i As Integer
Randomize
For i = 1 To 100
A(i) = Int(Rnd*100) + 1 ' Заполняем массив случайными числами от 1 до 100
Print A(i) & CHR(9); ' Выводим начальный массив через табуляцию
Next i
Print "Повторяющиеся элементы"
For i = 1 To 100
For k = i+1 To 100
If A(i) = A(k) Then Print A(i) & CHR(9);
Next k
Next i
Print "Не повторяющиеся элементы"
For i = 1 To 100
Odin = True 
For k = i+1 To 100
If A(i) = A(k) Then Odin = False
Next k
If Odin = True Then  Print A(i) & CHR(9);
Next i
End