хорошие мои решить задачу соблюдая
правила оформления решения задач.
Общий 10.
ADSL-модем - устройство, предназначенное
для подсоединения к сети Интернет через
телефонную линию.
Аббревиатура ADSL - расшифровывается
как «Asymmetric Digital Subscriber
Line» — «Ассиметричная цифровая
абонентская линия».
Задача 1. Данные переданы через ADSL
соединение с пропускной
бит/с. С
этого соединения для передачи файла
необходимо 16 секунд времени.
Определите объем файла в килобайтах.​

from random import randint

# Создание списка,

# его сортировка по возрастанию

# и вывод на экран

a = []

for i in range(10):

   a.append(randint(1, 50))

a.sort()

print(a)

# искомое число

value = int(input())

mid = len(a) // 2

low = 0

high = len(a) - 1

while a[mid] != value and low <= high:

   if value > a[mid]:

       low = mid + 1

   else:

       high = mid - 1

   mid = (low + high) // 2

if low > high:

   print("Такого значения нет")

else:

   if (mid == 0 and a[1] != a[0]) or (mid == len(a) - 1 and a[mid - 1] != a[mid]):

       print(1)

   else:

       q = 0

       for i in range(mid, len(a)):

           if a[i] == a[mid]:

               q += 1

           else:

               break

       for i in range(mid - 1, 0, -1):

           if a[i] == a[mid]:

               q += 1

           else:

               break

       print(q)

Чтобы убрать вывод массива просто на 10-й строке убери print(a), а для  вывода неотсортированного массива вставь после 8-й строки.

//Я просто опишу метод записи матрицы
const n=100;
var ar:array of array of integer;
 ars:array of array of string;
 i:integer;
 
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
 i,j:integer;
begin;
for i:=1 to n do
 begin;
   for j:=1 to n do
    begin;
     ar[i,j]:=random(9);
     str(ar[i,j],ars[i,j]);
    end;
 end;
end;

procedure burning(ars:array of array of string);
var
 i,j:integer;
 t:text;
 begin;
  assign(t,'text.txt');
  rewrite(t);
  for i:=1 to n do
   begin;
    writeln(t,' ');
     for j:=1 to n do
      write(t,ars[i,j],' ');
   end;
 end;  

begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
 begin;
  setlength(ar[i],n+1);
  setlength(ars[i],n+1);
 end;
complection(ar,ars);
burning(ars);
end.