Хей, можешь уточнить в чём заключается задание поподробнее, а то не очень понятно.
По-моему понятно написал. Разберёшь мой почерк?
Магнитофонная касета несет на себе аналоговую информацию, ее невозможно просто так представить в байтах без оцифровки. Для того чтобы узнать размер после оцифровки, кроме длительности необходимо еще знать частоту дискретизации и глубину кодирования (бит на сэмпл). Кроме того, если на кассете два канала (стерео), то объем вырастет в два раза.
Допустим мы оцифровываем 90 минут одноканальной музыки с частотой дискретизации 44100 Гц и 16 битной глубиной. Это значит, что 44100 раз в секунду мы будет замерять уровень звука и кодировать его 16-ти разрядным двочиным числом, то есть 2 байтами. 90 минут это 90*60 = 5400 секунд.
Итоговый объем будет 44100 Гц * 5400 с * 2 байта = 476 280 000 байт = 454,2 Мбайт.
И это если без сжатия.
program raf105;
const
n = 10;
var
d:array[1..n] of integer;
min,max,sum,notmax,i: integer;
begin
max:= -10000;
min:= 10000;
writeln('Заполните массив');
for i:=1 to n do
begin
readln(d[i]);
sum+= d[i];
if max<d[i]
then max:= d[i];
end;
for i:=1 to n do
begin
if d[i]<>max
then notmax+= 1;
if (d[i]>sum) and (d[i]<min)
then min:= d[i];
end;
if min<>10000
then writeln('Минимальный среди элементов, больших суммы: ',min)
else writeln('Минимальный среди элементов, больших суммы: Не найдено');
writeln('Количество элементов, не равных максимальному: ',notmax);
end.
<h3><em><u>Язык PascalABC</u></em></h3>