Файл размером 9 кбайт передается через некоторое соединение за 36 секунд.определите, за сколько секунд можно передать этот же файл через соединение, скорость которого на 1024 бит в секунду больше.

Переводом кбайты в биты: 9•1024•8=73728 73728/36=2048(бит/сек) скорость соединения 2048+1024=3072(бит/сек) - скорость нового соединения 73728/3072=24 секунды

Const n =5; var   a: array[1..n] of integer;   i,max: integer; begin   writeln('введите 1 элемент массива');   readln(a[1]); max: =a[1];   for i: =2 to n do begin       writeln('введите ', i,' элемент массива');       readln(a[i]);       if a[i]> max then max : = a[i];   end;   writeln('максимальный элемент массива равен ',max); end. тестовое решение: введите 1 элемент массива 21 введите 2 элемент массива 56 введите 3 элемент массива 12 введите 4 элемент массива 24 введите 5 элемент массива 15 максимальный элемент массива равен 56

Var s: string; p1,p2: integer;   begin writeln('введите слово: '); readln(s); p1: =pos('жы',s); p2: =pos('шы',s); if (p1=0)and(p2=0) then writeln('ошибок не замечено.'); if p1> 0    then   begin   delete(s,p1,2);   insert('жи',s,p1);   writeln('слово написано с ошибкой.');   writeln('правильное написание - ',s);   end; if p2> 0    then   begin   delete(s,p2,2);   insert('ши',s,p2);   writeln('слово написано с ошибкой.');   writeln('правильное написание - ',s);   end; end.