uses crt;
var
a,b:array[1..1000] of real;
i,n,k,j:integer;
max,sum,tmp:real;
begin
read(n);
for i:=1 to n do
a[i]:=sqrt(i)-cos(i);
max:=a[1];
for i:=1 to n do
if max<a[i] then begin max:=a[i]; k:=i; end;
for i:=1 to k-1 do
sum:=sum+a[i];
j:=0; tmp:=0;
for i:=k+1 to n do
begin
tmp:=a[i];
j:=j+1;
b[j]:=tmp;
end;
writeln('Получившийся массив: ');
for i:=1 to n do
write(a[i]:3:3,' ');
writeln;
writeln('Сумма до максимального: ');
writeln(sum:3:3);
writeln('Массив после максимального: ');
for i:=1 to j do
write(b[i]:3:3,' ');
end.
Условно считаем, что модем работает в однополосном режиме, а значит 1 бит = 1 бод, тогда:
2949120/768=3840 секунд
3840/60=64 минуты.