Заполнить массив из 10 элементов случайными числами в интервале [0..14] и определить есть ли в нем одинаковые соседние элементы Пример :
Исходный массив : 4 0 1 2 0 1 3 1 1 0​

1. Порт PS/2 для подключения мыши

2. Порт PS/2 для подключения клавиатуры

3. Параллельный порт LPT,  можно подключить принтер, но вообще устарел и не используется

4. Последовательный COM - порт, можно подключить например модем, или какой-нибудь программатор, можно сказать, что тоже устарел

5. VGA - аналоговый порт для подключения монитора

6. Ethernet порт для подключения кабеля " витая пара" , можно подключить маршрутизатор.

7. Линейный вход звуковой карты , можно подключить любой источник звука, например электрогитару.

8 Линейный выход звуковой карты  на колонки, наушники

9. Разъем для подключения микрофона к звуковой карте

10,11 - USB порты - большое количество устройств: мышь,  клавиатура , флеш- накопители, принтеры, сканеры, веб камера, внешние HDD,  и еще много всего.

Объяснение:

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.