Проводилась двухканальная (стерео) звукозапись с частотой дискретизации 16 кГц и 24-битным разрешением. В результате был получен файл размером 4 Мбайт, сжатие данных не производилось. Какая из приведенных ниже величин наиболее близка к времени в секундах, в течение которого проводилась запись? 13 секунд 27 секунд 39 секунд 44 секунды 120 секунд

var tl, tp, l, p: real;

     el, n: integer;

begin

print('Время, за которое лифт передвигается на 1 этаж');

readln(l);

print('Этаж, на котором находится лифт');

readln(el);

print('Время, за которое Катя поднимается на 1 этаж');

readln(p);

print('Нужный этаж');

readln(n);

tp := (n - 1) * p;

tl := (el + n - 2) * l;

println('Время на лифте:', tl);

println('Время по лестнице:', tp);

if tp > tl then

println('На лифте быстрее')

else

 if tp < tl then

 println('По лестнице быстрее')

 else

 println('Нет разницы');

end.

// PascalABC.NET 3.0, сборка 1128
const
  nn=20;
var
  b:array[1..nn] of integer;
  i,n,bmin,bmax:integer;
begin
  Randomize;
  Write('n='); Read(n);
  Writeln('Элементы массива');
  bmax:=-1000; bmin:=1000;
  for i := 1 to n do begin
    b[i]:=Random(51)-25;
    Write(b[i],' ');
    if b[i]<bmin then bmin:=b[i]
    else
      if b[i]>bmax then bmax:=b[i]
    end;
  Writeln;
  Writeln('Ср. арифметическое минимального и максимального: ',
    (bmin+bmax)/2)
end.

Тестовое решение:
n=15
Элементы массива
3 16 20 13 25 -2 13 -18 17 10 -7 -18 2 -20 -2
Ср. арифметическое минимального и максимального: 2.5