Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
Чтобы перевести в мегабайты, нужно два раза разделить на 1024
(60000 * 2^10)/(1024*1024) = 60000/1024
Так как нужно примерное время, можем 1024 принять за 1000, то есть получается ~60 Мб.
2. Комбинаторика. Слова состоят из пяти букв, буква Х может быть либо на последнем месте, либо её нет вообще
Х
Каждая оставшаяся звездочка принимает одно из оставшихся трёх значений. Для первого случая количество слов будет равно 3^4 = 81, для второго 3^5 = 243. Общее количество слов равно 81+243 = 324
32000 гц * 4 байт * 120 секунд * 4 канала = 1000 * 2^5 * 2^2 * 120 * 2^2 = 120000 * 2^9 = 60000 * 2 * 2^9 = 60000 * 2^10 байт
Чтобы перевести в мегабайты, нужно два раза разделить на 1024
(60000 * 2^10)/(1024*1024) = 60000/1024
Так как нужно примерное время, можем 1024 принять за 1000, то есть получается ~60 Мб.
2. Комбинаторика. Слова состоят из пяти букв, буква Х может быть либо на последнем месте, либо её нет вообще
Х
Каждая оставшаяся звездочка принимает одно из оставшихся трёх значений. Для первого случая количество слов будет равно 3^4 = 81, для второго 3^5 = 243. Общее количество слов равно
81+243 = 324