Ввиде программ: 1 заполнить массив n числами(n< =1000), введенными с клавиатуры. вывести числа в строку в прямом и обратном порядке. 2 ввести число. заполнить массив цифрами числа. вывести цифры числа в строку. 3 заполнить массив четными числами из интервала [a, b].вывести числа в строку в обратном порядке.

1-ая program one; var n, i : integer; a : array [1..1010] of integer; begin read(n); for i : = 1 to n do begin read(a[i]); end; for i : = 1 to n do begin write(a[i], ' '); end; writeln(); for i : = n downto 1 do begin write(a[i], ' '); end; end. 2-ая program two; var n, i, k: integer; a : array [1..1010] of integer; begin read(n); k : = 1; while (n > 0) do begin a[k] : = n mod 10; k : = k + 1; n : = n div 10; end; for i : = k - 1 downto 1 do write (a[i], ' '); end. 3-я program two; var k, start, endd, i: integer; a : array [1..1010] of integer; begin read (start, endd); k : = 1; for i : = start to endd do begin         if (i mod 2 = 0) then         begin                   a[k] : = i;                   k : = k + 1;         end; end; for i : = k - 1 downto 1 do       write (a[i], ' '); end.

ответ

скорость передачи была 1048576 бита

а передача заняла 12 минут.

объяснение:

1024 кбит * 1024 = 1048576 бита

1024 кб = 1 мбит

1 мбайт =   8192 кбита

90 мбайт * 8192 = 737280 кбита

737280 : 1024 = 720 секунд = 12 минутам

надеюсь нигде не ошибся.