1) чистота дискретизации, кгц = 11 глубина кодирования, битов = 16 моно время звучания, с = 64 объем файла, кбайт = ? 2)чистота дискретизации, кгц = 11 глубина кодирования, битов = 8 моно объем файла, кбайт = 1375 время звучания, с = ? 3)чистота дискретизации, кгц = 11 моно время звучания, с = 238 объем файла, кбайт = 4125 глубина кодирования, битов = ? 4)глубина кодирования, битов = 16 стерио время звучания, с = 64 объем файла, кбайт = 11025 частота дискретизации = ? решить((

Размер цифрового аудиофайла измеряется по формуле:
     A = D*T*i (моно) или A = 2*D*T*i (стерео),
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение или глубина кодирования звука).
1.
A = 11*1000*64*16 бит = 11*1000*64*16 / (8*1024) Кбайт = 1375 Кбайт

2.
T = 1375*1024*8 / (11*1000*8) c = 128 c

3.
i = 4125*1024*8 / (11*1000*238) бит ≈ 13 бит
(если T = 256, то i = 4125*1024*8 / (11*1000*256) бит = 12 бит)

4.
D = 11025*1024*8 / (2*64*16) Гц = 44100 Гц = 44,1 кГц

Var a,max,sum:integer;
    arr:array [0..2015] of integer;
    begin
randomize;
max:=-500;
sum:=0;
for a:=0 to 2015 do begin
arr[a]:=random(1001)-500;
if max<arr[a] then max:=arr[a];
end;
write('максимальный элемент массива ==> ',max);
writeln();

if max mod 2 = 1 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =1 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;

sum:=0;
if max mod 2 = 0 then begin
for a:=0 to 2015 do begin
if arr[a] mod 2 =0 then sum:=sum+arr[a];
end;
writeln('сумма чисел одинаковой чётности числу ',max,' = ',sum);
end;

end.

1. a; c
2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/
3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы.
Исправление:
program prim_a;
var m, n, k: integer;

begin
writeln('введите значения переменных m, n и k');
read(m,n, k);
writeln((m+n+k)*5);
end.
4. a) 
program plowad;
var
a, h: real;

begin
writeln('Введите основание треугольника и высоту');
readln(a, h);
writeln('Площадь треугольника равна ', a*h/2);
end.
5. program proizvedenie;
var 
a, b: integer;

begin
writeln('Введите двузначное число');
readln(a);
b:=a mod 10;
a:=a div 10;
writeln('Произведение цифр двузначного числа равно ', a*b);
end.