Количество каналов = 1 канал
Информационный объем файла = 5,25 Мбайт = 5,25 * 1024 * 1024 байт
Звуковая глубина = 16 бит = 2 байта
Частота дискретизации = 22,05 КГц = 22050 Гц
Время звучания -?
Информационный объем файла = Количество каналов * Время звучания * Частота Дискретизации * Звуковая Гулубина
Время звучания = Информационный объем файла / (Количество каналов * Частота Дискретизации * Звуковая Гулубина) = 5,25 * 1024 *1024 / (1* 22050 * 2 ) = 125 c (с округлением до целого значения)
Ну это города B и E кратчайшее расстояние 3)
Program z;
const n=5;
var a:array[1..n] of real;
i:integer; s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
if a[i]>0 then a[i]:=s;
for i:=1 to n do
write(a[i],' ');
end.