Const
N = 10;
Var
C:array[1..N] of integer;
i,k,Max:integer;
P:real;
Begin
Randomize;
P:=1;
k:=0;
Max:=1;
WriteLn('C(',N,') в столбик:');
For i:= 1 to N do
Begin
C[i]:=random(31)-15;
WriteLn(C[i]:4);
if i mod 2 = 0 then P:=P*C[i];
if C[i] > 0 then k:=k+1;
if Abs(C[i]) > Abs(C[Max]) then Max:=i;
End;
Write('C(',N,') в строку:');
For i:= 1 to N do
Write(C[i]:4);
WriteLn;
WriteLn('P = ',P);
WriteLn('k = ',k);
WriteLn('Max = ',C[Max],'[',Max,']');
ReadLn;
End.
В первом скорее всего, если звук моно, то по формуле A=dTI, где А размер файла, d частота дискретизации (насколько я помню, худшее это 8 кГц) Т время звучания, I глубина звука (8 бит худшее вроде бы) можно вычислить.
Во втором подставляешь I и как 8 бит, и как 16, получаешь 2 ответа.
Всего 20 домов
№16 не ясно из чего (т.е из любого)
6/20=0,3 дерево
8/20=0,4 кирпич
0,3 железобетон
0,3+0,4+0,3=1
Лишнее дверцы, потому что остальные слова не имеют единственного числа.
Объяснение
каждый раз прибавляется 9
Решение
100,109,118,127.