Что выполняет цикл For i = 0 To n-1
For j = i + 1 To n
If A(i) > A(j) Then
Temp = A(j)
A(j) = A(i)
A(i) = Temp
End If
Next j
Next i

// PascalABC.NET 3.0, сборка 1128
function Sum(a:array of real):real;
begin
  Result:=0;
  foreach var x in a do
    if x>10 then Result+=x
end;

procedure Half(a:array of real);
begin
  var s:=Sum(a)/2;
  for var i:=0 to a.Length-1 do a[i]/=s
end;

procedure PrintRealArray(a:array of real);
begin
  foreach var x in a do Write(x:0:3,' ');
  Writeln
end;

begin
  var n:=ReadInteger('Количество элементов массива:');
  var P:=ArrRandomReal(n,0,20);
  Writeln('Исходный массив'); PrintRealArray(P);
  Half(P);
  Writeln('Результирующий массив'); PrintRealArray(P)
end.

Тестовое решение:
Количество элементов массива: 10
Исходный массив
2.835 3.159 11.777 19.562 1.392 8.941 15.501 14.392 7.945 12.443
Результирующий массив
0.077 0.086 0.320 0.531 0.038 0.243 0.421 0.391 0.216 0.338

Длительность не превышает 10 минут, то есть 10*60=600 секунд.
Для удобства переведём скорость из Кбит/сек в Кбайт/сек по формуле кбит/8=кбайт
32 Кбит/с / 8 = 4 Кбайт/с
То есть за 1 секунду передаётся 4 Кбайт, значит за 600 секунд будет передано 600*4= 2400 Кбайт 

Соглашусь с alviko, вариант 2:
За секунду передаётся 32 Кбит, то есть 32 000 бит. Переводим в байты (делим на 8), получаем 4000 байт/с. 
На передачу уходит максимум 600 секунд, то есть за 600 секунд будет передано
4000*600=2 400 000 байт.
Переведём байты в килобайты (разделим на 1024)
2 400 000 байт / 1024 = 2343,75 Кбайт
В задании не сказано, целое ли количество кбайт требуется в ответе. Если целое, то ответ 2343 Кбайт (округляем в меньшую сторону, т.к. 2344 Кбайт за 10 минут мы передать не можем).