Var
a:array[1..100000] of integer;
b:array[0..9]of boolean;
n,i:integer;
Procedure Two_Max;
var
cnt, i:integer;
begin
For i:= 1 to n do
b[a[i]]:= true;
For i:= 9 downto 0 do
if (b[i] = true)and(cnt < 2) then
begin
inc(cnt);
Write(i, ' ');
end;
end;
begin
Read(n);
For i:= 1 to n do
Read(a[i]);
Two_Max;
end.
Мраморная скульптура является носителем информации
Заходим в TeamSpeak 3 Клиент
Если вы не авторизовались с ключём привилегий, сделайте это.<span>
</span>Ключ привилегий возьмите в настройках вашего голосового сервера<span>
</span>
Вот вы и авторизовались!
Создаём канал или подканал, правой кнопки мыши кликайте на Название сервера или на дефолтный канал Default Channel<span>
</span>
Откроется окно создания канала, со всеми параметрами.
На рисунке:
1. Можно выбрать иконку 2. Можно поставить пароль доступа
P.S Смотри картинки.