Const
n=10;
var
i,m,k:integer;
a:array[1..n] of integer;
begin
Randomize;
Write('Исходный массив: ');
for i:=1 to n do begin a[i]:=Random(90)+10; Write(a[i],' ') end;
Writeln;
Writeln('Введите целое число: '); Read(m);
k:=0;
for i:=1 to n do
if a[i]<m then Inc(k);
Writeln('Количество чисел, меньших ',m,' равно ',k)
end.
Тестовое решение:
Исходный массив: 42 89 49 25 96 87 94 93 41 28
Введите целое число:
50
Количество чисел, меньших 50 равно 5
Котлеты мясные мясо,яйцо,хлеб(кусочек),молоко,лук,чеснок(по желанию),соль,перец,мука.кухонные принадлежности мясорубка,лопатка,сковорода,кастрюля,дощечка.
1. Скорость передачи данных.
2. Надёжность (передача данных без искажений).
3. Стоимость.
4. Резервы развития.
Информационный объем аудиофайла I=t*n*i*k, где t- время звучания (с.), n- частота дискретизации (Гц), i- глубина кодирования звука (бит), k- количество каналов записи.
I=10*48000*16*2= 15360000 бит = 1875 Кбайт