var
n, Num, i, j, t: integer;
Count: array[1..12] of integer;
Names: array[1..12] of integer;
begin
for i := 1 to 12 do
begin
Count[i] := 0;
Names[i] := i;
end;
ReadLn(N); { Считываем количество запросов}
for i := 1 to N do
begin
ReadLn(t); {считали очередной запрос}
Count[t] := Count[t] + 1;
end;
{Сортируем массивы Names и Count в порядке убывания значений массива Count}
for i := 12 downto 2 do
for j := 2 to i do
if Count[j - 1] < Count[j] then
begin
t := Count[j];
Count[j] := Count[j - 1];
Count[j - 1] := t;
t := Names[j];
Names[j] := Names[j - 1];
Names[j - 1] := t;
end;
for i := 12 downto 1 do
if Count[i] > 0 then
WriteLn(Names[i], ' ', Count[i]);
end.
Объяснение:
Объяснение:
1) Происходит 16000 измерений в секунду, на одно измерение отводится 16 бит, значит, на секунду необходимо 16000 * 16 бит = 16000 * 2 байт = 32000 байт, а на 30 секунд - 30 * 32 000 байт = 960 000 байт = 937,5 Кб
2) Необходимо 1 760 000 байт на 20 секунд, т.е. 1 760 000 / 20 = 88 000 байт. Есть 2 канала по 16 бит = 2 байта, одно измерение занимает 2 * 2 = 4 байта, тогда всего измерений в секунду 88 000 / 4 = 22 000, частота дискретизации 22 000 Гц.
3) 2 * 1 * 48000 * 16 бит = 48000 * 4 байт = 187,5 Кб
var a, b:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if a<b then
writeln(1) else
writeln(2)
end.