program p1;
uses Crt;
var
i, n, m, min: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(min);
for i := 2 to n do
begin
Read(m);
if m < min then
min := m;
end;
Writeln(min);
ReadKey;
end.
program p2;
uses Crt;
var
i, n, m, max, k: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(max);
k := 1;
for i := 2 to n do
begin
Read(m);
if m > max then
begin
max := m;
k := 1;
end
else if m = max then
k := k + 1;
end;
Writeln(k);
ReadKey;
end.
1 байт = 2^3 бит, поэтому 2^23 бит/сек = 2^20 байт/сек = 1 Мбайт/сек.
Объем несжатого файла: 50Мбайт.
Объем сжатого файла: 50*0,9 = 45 Мбайт.
Время передачи несжатого файла: (50 Мбайт) / (1 Мбайт/сек) = 50 сек.
Время передачи сжатого файла: (45 МБайт) / (1 Мбайт/сек) = 45 сек.
Время сжатия и распаковки архива: 7 + 3 = 10 сек.
Общее время передачи сжатого файла: 45 + 10 = 55 сек.
Время передачи несжатого файла на 5 сек меньше, чем сжатого.
ответ: Б5