<em>Проверено на fpc 3.0.0 </em>
const
m=6; // строк
n=9; // столбцов
var
a:array[1..m,1..n] of integer;
i,j,k1,k2,s,k:integer;
begin
Writeln('Введите границы диапазона: '); Read(k1,k2);
Randomize;
s:=0; k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99; // [-99;99]
Write(a[i,j]:4);
if (a[i,j]>=k1) and (a[i,j]<=k2) then begin
Inc(k); s:=s+a[i,j]
end
end;
Writeln
end;
Writeln('Отобрано элементов: ',k,', их сумма равна ',s)
end.
<u>Пример</u>
Введите границы диапазона:
-20 55
-2 -52 -11 -12 70 -15 90 -51 75
-54 -92 32 54 -72 -24 -40 -37 -20
0 -14 -79 -1 -39 -34 39 47 34
-91 -98 -68 -16 -56 -55 97 66 59
-48 -67 -34 92 -77 12 -67 -23 -90
75 85 65 -98 -58 -53 -6 34 33
Отобрано элементов: 18, их сумма равна 188
Я пойду по второму пути. Пусть некто измерял среднее число крыс в своём подвале и количество испорченных продуктов (в граммах). Результаты приведены в таблице.
По графику похоже, что корреляция есть, T-критерий Пирсона это подтверждает.
А) V = D * t * i * k
V - информационный объем файла
D - частота дискретизации
t - время звучания
i - глубина кодирования 1 сигнала
k - количество каналов
D1 = 8 кГц = 8000 Гц
t = 1 мин = 60 секунд
k = 1 канал (моно-)
i1 = 16 бит = 2 байта
V1 = 8000 Гц * 60 c * 2 байта * 1 = 960000 байт = 937,5 килобайт = 0,91 мегабайт - информационный объем 1 звукового файла
D2 = 24 кГц = 24000 Гц
t = 1 мин = 60 секунд
k = 1 канал (моно-)
i2 = 16 бит = 2 байта
V2 = 24000 Гц * 60 c * 2 байта * 1 = 2880000 байт = 2812,5 килобайт = 2,75 мегабайт
- информационный объем 2 звукового файла
Детская песня - Колыбельная медведицы - 2,09 мегабайт меньше 2 объема на 0,66 Мб и больше 1 объема на 1,18 Мб
Песня Валентины Толкуновой Тебя любила - 1,05 Мб больше 1 объема на 0,14 Мб, меньше второго объема на 1,7 Мб