Нужно определить, сколько времени будет передаваться файл объемом 5 Мбайт по каналу со скоростью передачи данные 215 бит/с; к этому времени нужно добавить задержку файла у Толи (пока он не получит 512 Кбайт данных по каналу со скоростью 219 бит/с).
Периведём объём информации в Мб в биты: Q = 5 Мб = 5 * 220 байт = 5 * 223 бит.
Время задержки: = 512 кб / 219 бит/с = 2(9 + 10 + 3) - 19 c = 23 c.
Время скчивания данных Мишей: = 5 * 223 бит / 215 бит/с = 5 * 28 c.
Полное время: = 5 * 28 c + 23 c = (256 * 5 + 8) c = 1288 c.
ответ: 1288.
a:array[1..10] of integer;
cnt1, cnt2, i:integer;
begin
For i:= 1 to 10 do
Read(a[i]);
for i:= 1 to 5 do
if a[i] > 0 then cnt1 := cnt1 + 1;
for i:= 6 to 10 do
if a[i] > 0 then cnt2 := cnt2 + 1;
if cnt1 = cnt2 then Writeln('Количество пол-х элементов одинаково');
if cnt1 > cnt2 then Writeln('Количество пол-х элементов больше в первой половине');
if cnt1 < cnt2 then Writeln('Количество пол-х элементов больше во второй половине');
end.
Пример:
-1 -2 3 5 0 4 6 7 -2 -5
Количество пол-х элементов больше во второй половине