Объемом 100 мбайт из пункта а в пункт б по каналу связи, обеспечивающему скорость передачи данных 2^20 бит в секунду, а затем из пункта б в пункт в по каналу связи, обеспечивающему скорость передачи данных 2^22 бит в секунду. задержка в пункте б (время между окончанием приема данных из пункта а и началом передачи в пункт в) составляет 24 секунды. сколько времени (в секундах) прошло с момента начала передачи данных из пункта а до их полного получения в пункте в?

Из а в б (100*2^23)/2^20= 800 сек из б в в (100*2^23)/2^22=200 сек итого 200+800+24=1024 сек вроде так

Const n=10000; var a: array[1..n]of integer; i,n1, flag: integer; begin     readln(n1);         for i: =1 to n1 do               read(a[i]); for i: =1 to n1-1 do     if ((a[i]< 0)and(a[i+1]< 0))or         ((a[i]> 0)and(a[i+1]> 0))then                 flag: =1; if flag=1 then     writeln('yes')   else     writeln('no'); end.              

Цифрами обозначены строки необходимые в соответсвующей программе, остальные - общие. ну и переменные смотри var    a : array [1..200] of longint;     p,max : integer;     n,i,j : integer;   begin  readln (n);   p : = 1;     // 1  max : = 0;   // 2 3    for i : = 1 to n do    begin      readln (a[i]);         p : = p * a[i];   // 1      if a[i] > max then //2 3        begin                  //2  3 max : = a[i]; // 2 3        j : = i; //3        end;         // 2  3 end;         writeln (p); //1    writeln (max); //2    writeln (j); //3   end.