Заполнить массив случайными целыми числами из
интервала от -7 до 25

// PascalABC.NET

begin

 var n := ReadInteger('Укажи количество элеменов:');

 var a := ArrRandom(n, -7, 25);

 a.Println

end.

для начала переведем кбайты в биты:

2500кбайт=2500*1024*8=20480000бит,

затем найдем искомое   время: t=объём файла/скорость передачи,

t=20480000/1024000=20 секунд

ответ 2)