Нужно"модем передает информацию со скоростью 127000 бит в секунду за какое время можно передать текст объемом 256000 килобайт"

Скорость = 127 000 бит
текст = 256 000 Кб = 2 097 152 000 бит
2 097 152 000 / 127 000 = 16513 сек или 4.5 часа 

1)вирусы
Все существующие компьютерные вирусы можно разделить 
на несколько групп по производимым ими действиям и «образу жизни».Бывают совершенно безвредные вирусы.Они размножаются, живут своей неведомой людям жизнью и никак себя 
не проявляют. Как правило, единственным побочным эффектом их существования является сокращение свободного пространства на диске. Правда, это не является сколько-нибудь критичным – в большинстве случаев вирусы весьма компактны.Следующей ступенью являются,
так называемые, неопасные вирусы.Они уже стараются заявить пользователю о себе во весь голос: 
используют различные звуковые, графические или текстовые эффекты.Например:проигрывают в определенное время какую–нибудь мелодию, выводят на экран 
различные надписи, могут даже начать переворачивать экран вверх ногами или 
устроить настоящий «буквопад» – находящиеся на экране символы будут на глазах изумленного и напуганного пользователя сваливаться вниз. При этом, все данные на компьютере остаются в целости и сохранности, а программы продолжают нормально работать. К сожалению, создатели вирусов не ограничиваются 
описанными выше –безобидными шутками.Подавляющее большинство распространенных вирусов могут нарушать нормальную работу компьютера, вызывать зависание определенных программ. Бывают и более страшные случаи, когда в вирус заложены алгоритмы, уничтожающие или искажающие данные на диске машины. Таков, например, вирус под названием OneHalf («половина»), вызвавший несколько лет назад настоящую эпидемию.Незаметно для пользователя он постепенно зашифровывал содержимое жесткого 
диска, попутно вызывая некоторые побочные эффекты типа участившихся зависаний Windows, а при определенных условиях вирус мог «забыть» ключ к этому шифру.Более же примитивные вирусы могут попросту стереть все, не понравившиеся им, 
файлы, либо записать в них произвольный мусор вместо данных. Нельзя не учитывать, что наделать бед и, казалось бы, безопасные вирусы: известны случаи, когда программистские ошибки в них приводили к фатальным последствиям.Периодически появляются различные сведения о вирусах, якобы портящих 
мониторы, выводящих из строя жесткие диски и наносящих другие «физические 
увечья» компьютеру. Но, так как «живьем» их никто не видел, это вполне можно 
считать одной из легенд компьютерного мира. За исключением
единственного случая.Летом 1998 г. из Юго–Восточной Азии пришел вирус Win95.CIH, вызвавший в Европе серьезную эпидемию. Вирус разрушал BIOS, после чего из строя выходила системная плата компьютера. В большинстве современных компьютеров flash–BIOS сделан перезаписываемым, чем и воспользовались авторы вируса. В процессе его работы вместо BIOS записывается произвольный мусор, причем так, что многие системные платы уже не поддаются восстановлению.К чести отечественных вирусологов нельзя не отметить, что именно они первыми 
сумели побороть эту заразу – специалисты компании «Лаборатория Касперского» 
нашли лечения вируса практически сразу после его появления.

Var
  arr : array [1..30] of integer;
  sum, count, i, a : integer;
begin
  read (a);
  for i := 1 to 30 do read (arr[i]);
  count := 0; sum := 0;
  for i := 1 to 30 do
  begin
    if arr[i] < 0 then sum := sum + arr[i]
    else if (arr[i] > 0) and (arr[i] <= a) then count := count + 1;
  end;
  writeln (sum, ' ', count);
end.

var
  arr : array [1..30] of integer;
  i : integer;
begin
  for i := 1 to 30 do read (arr[i]);
  for i := 30 downto 2 do
    if arr[i] * arr[i - 1] < 0 then // проверка знака
    begin
      writeln (i - 1); 
      halt; // Остановка программы
    end;
  writeln ('-1'); // Таких нет
end.