3 ... т.к. высказывание - это мысль .. котороя может быть правдой или ложью
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
По формуле
<span>где D – частота дискретизации (Гц), T – время звучания или записи звука,
I - разрядность регистра (разрешение), n - количество каналов.
</span>Дано:
Бит памяти(округленно в меньшую сторону)
D = 44100 (Гц)
I = 16 (бит)
<span>n = 1 - сколько каналов аудио-файле?
</span>T - ?
(Сек)
P.S. Рассчитано для одного канала.
Var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do begin
a[i]:=random(-10,10);
if not odd(i) then p*=a[i];
write(a[i]:3);
end;
writeln;
writeln(p);
<span>end.</span>