Я осмелился предположить, что вопрос в задаче состоял в нахождении максимально возможной частоты дискретизации (n), с которой звукозапись может поместиться в файл размером 5 Гб.
Дано:
I = 32 бит = 4 байта
V = 5 Гб * 1024 * 1024 * 1024 = 5 368 709 120 байт
t = 0.5 ч = 30 м * 60 = 1800 с
Найти:
n - ?
V = I*n*t (если запись в стерео, то еще умножить на два: V = I*n*t*2)
n = V / (I*t) (если запись в стерео, то: n = V / (I*t*2))
n = 5 368 709 120 байт / (4 байта * 1800 с) ≈ 745 654 Гц ≈ 745,7 кГц
ответ: 745,7 кГц
var i,a,sp,ko2,sp2,kp2:integer;
p:biginteger;
begin
p:=1;
for i:= 1 to 100 do
begin
a:=random(199)-99;
write (a,' ');
if a > 0 then sp:=sp+a;
if (a < 0) and (a mod 2 = 0) then ko2:=ko2+1;
if a > 10 then p:=p*a;
if (a > 0) and (a mod 2 = 0) then
begin
sp2:=sp2+a;
kp2:=kp2+1
end
end;
writeln;
writeln ('Сумма положительных чисел равна ',sp);
writeln ('Кол-во отрицательных чётных чисел равно ',ko2);
writeln ('Произведение чисел больше 10 равно ',p);
writeln ('Среднее арифметическое положительных чётных чисел равнo ',sp2/kp2:0:3);
end.
begin
Year:=2015;Month:=07; Day:=01;
randomize;
for j:= 1 to 2 do begin
if j= 2 then Month:= Month + 1;
for I:= 1 to 31 do begink:= k +1;
n:= Round((random()*100 +1) *100);
m:= Round((random()*150 +1) *100);
A[k]:= n / 100;
B[k]:= m / 100;
S[k]:= A[k] + B[k];Day:= I;
write(Day, '.',Month, '.',Year);writeln(' ', A[k]:8, B[k]:8, S[k]:9);end;
end;end.