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.
Я осмелился предположить, что вопрос в задаче состоял в нахождении максимально возможной частоты дискретизации (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 кГц
