===== PascalABC.NET =====
function ЧислоВторыхМаксимумов(a: array of integer) :=
a.GroupBy(p -> p) // сгруппировали одинаковые
.Select(p -> (p.Count, p.Key)) // создали кортежи (кол, значение)
.OrderByDescending(p -> p[1]) // отсортировали по убыванию значений
.Skip(1) // пропустили первый элемент
.Take(1) // взяли только второй элемент
.Select(p -> p[0]); // выделили из кортежа количество
begin
var n:=ReadInteger('n ='); // длина массива
var a:=ArrRandom(n, 1, 10); // инициализируем массив
a.Println; // выводим его
ЧислоВторыхМаксимумов(a).Println // вызываем функцию, выводим результат
end.
В компьютере используется только бинарная система счисления, и любая информация в компьютере кодируется двумя символами: 0 и 1 .Бит — это наименьшая единица измерения информации.
Технически, в компьютере самое маленькое объединение битов равно 8 .
Эту группу из 8 битов называют байтом (byte).1 бит — наименьшая единица измерения информации
8 бит =1 B (байт)
1024 байт =1 KB (килобайт)
1024 килобайт =1 MB (мегабайт)
1024 мегабайт =1 GB (гигабайт)
1024 гигабайт =1 TB (терабайт)
1024 терабайт =1 PB (петабайт)
В килобайтах, мегабайтах и гигабайтах измеряют объём памяти, например, объём внешней памяти — 512 (MB).
Скорость передачи информации измеряют в битах, килобайтах или мегабайтах, например, в модеме она может быть 56 Kb/s, а в локальной сети — 10 или 100 Mb/s.
1 кбит =1000 бит.Создание кода
Одним битом можно кодировать два состояния: 0 и 1 (да и нет, чёрный и белый). При увеличении количества битов на один получится в два раза больше кодов.Пример:
Два бита создают 4 разных кода: 00 , 01 , 10 и 11 ;
три бита создают 8 разных кодов: 000 , 001 , 010 , 011 , 100 , 101 , 110 , и 111 .
