Сделайте дано и решение пишите на тетрадке 1-4 не сделайте

Используемая формула: I = V • t.

V — пропускная канала (в битах в секунду

или подобных единицах);

t — время передачи.

Найдём время передачи информации по соединению.

Выполним преобразование от Кбайт к бит.

t = I : V = 240 Кбайт : 2048 бит/с =

= (240 • 1024 • 8) : 2048 с =

= (30 • 8 • 210 • 23) : 211 с = 960 с.

Найдём объём файла, который можно передать за это время по другому соединению. Выполним преобразование от бит к Кбайт.

I = V • t = 512 бит/с • 960 с = 491 520 бит =

= 491 520 : 8 : 1024 Кбайт = 60 Кбайт.

ответ;60.

В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.

var
  n,s,t,i:integer;
begin
  Write('Укажите количество данных: ');
  Read(n);
  Writeln('Теперь вводите данные');
  s:=0;
  for i:=1 to n do
    begin
    Read(t);
    s:=s+t
    end;
  Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.

Пример решения

Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4