4.скачивание сенсационной статьи "высокие технологии в древней африке .pdf" заняло 40 секунд при скорости 384 кбайте. сколько минут потребуется, чтобы передать этот се файл со скоростью 1 мбит/с?

#include <cctype>  #include <algorithm>  #include <cmath>#include <iomanip>  #include <windows.h>#include <conio.h>#include <set>#include <iostream>  #include <string>  #include <vector>  using namespace std;
int main(){ int a, b,f=0,f1=0,ans=0; cin >> a >> b; if (a < 0 ) f = 1; if (b < 0) f1 = 1; for (int i = 0; i < abs(b);i++) { ans += a; } if (f == 1 && f1 == 1) cout << abs(ans); else if (f == 1 || f1 == 1) cout << '-' << abs(ans); else cout << ans; return 0;}

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

var 
 n:integer;
 a:array[1..100] of integer;
begin
 write('Введите размер массива (n<100): ');readln(n);
 var max:=0;
 var min:=101;
 for var i:=1 to n do
 begin
  a[i]:=random(0,100);
  write(a[i],' ');
  if i mod 2=1 then
   if a[i]>max then max:=a[i]
   else
    if a[i]<min then min:=a[i];
 end;
 writeln;
 writeln('Максимальный - ',max);
 writeln('Минимальный - ',min);
 writeln('Cумма максимального и минимального - ',max+min);
 readln;
end.

Пример:

Введите размер массива (n<100): 10
22 6 51 84 46 66 10 36 14 52                   // рандомная генерация
Максимальный - 51
Минимальный - 10
Cумма максимального и минимального - 61