Program z4; Var a: array [1..1000] of integer; i, sum, n:integer; S_R: real;Begin write('Введите кол-во элементов - '); readln(n); for i := 1 to n do begin a[i] := random (30); sum:= sum + a[i]; end; S_R:= sum / n; writeln('Cреднее арифметическое - ', S_R); for i := 1 to n do if (a[i] >= S_R) then write(a[i],' '); End.
пирамида.................
Формула для стерео:
где Hz - Герцы, b - биты, t – секунды.
Если у вас 1 МБайт = 1024 КБайт, то везде дели на 1024. Я делил на 1000.Дано:
Найдем объем в битах
бит
Переведем в МБайт-ы:
Байт
КБайт
МБайт
Пиши по другому, а то 2 будет
Набрать 8л во 2 кувшин (0+8=8) [0:8]
Перелить из 2 кувшина в 1 кувшин (8-3=5) [3:5]
Вылить 1 кувшин (3-3=0) [0:5]
Перелить из 2 кувшина в 1 кувшин (5-3=2) [3:2]
Вылить 1 кувшин (3-3=0) [0:2]
Перелить из 2 кувшина в 1 кувшин (2-2=0) [2:0]
Набрать 8л во 2 кувшин (0+8=8) [2:8]
Перелить из 2 кувшина в 1 кувшин (8-1=7) [3:7]
Вылить 1 кувшин (3-3=0) [0:7]
Вот у нас и получилось, что во 2 кувшине 7 литров воды