Выполнить переворот или сортировку массива с процедур(pascal abc).

Const   nm = 100; type   mas = array[1..nm] of integer; procedure shell(var a: mas; n: integer); { сортировка методом шелла } var   i, j, step, t: integer; begin   step : = n div 2;   while step > 0 do   begin       for j : = n - step downto 1 do       begin           i : = j;           while i < = n - step do           begin               if a[i] > a[i + step] then               begin                   t : = a[i];                   a[i] : = a[i + 1];                   a[i + 1] : = t               end;               i : = i + step           end       end;       step : = step div 2   end end; var   x: mas;   i, n: integer; begin   randomize;   write('введите число элементов в массиве (1-100): ');   readln(n);   writeln('исходный массив');   for i : = 1 to n do   begin       x[i] : = random(101) - 50;       write(x[i]: 4)   end;   shell(x, n);   writeln(#13#10, 'отсортированный массив');   for i : = 1 to n do write(x[i]: 4) end. тестовое решение: введите число элементов в массиве (1-100): 20 исходный массив   -8 -17 -19    1  -3  23 -33  30 -27 -45  12  26 -24  18  37    8  47 -14 -19  -3 отсортированный массив   -45 -33 -27 -24 -19 -19 -17 -14  -8  -3  -3    1    8  12  18  23  26  30  37  47

найдем кол-во байт, которое нужно передать. 640*480*3=921 600 байт. переведу в биты. 1 байт = 8 бит, следовательно 921 600 байт умножаем на 8.

921 600 * 8 = 7 372 800 бит.

теперь найду время, поделив кол-во бит на скорость передачи.

7 372 800 : 25 600 = 288 секунд.

ответ: 288 секунд