A B C D
1 округ фамилия предмет
2 C Ученик 1 Физика 240
3 В Ученик 2 Физкультура 782
4 Ю Ученик 3 Биология 361
5 СВ Ученик 4 Обществознание 377

В столбце А записан округ, в котором учится ученик; в столбце В — фамилия; в столбце С — любимый предмет; в столбце D — тестовый . Всего в электронную таблицу были занесены данные по 1000 ученикам.

Выполните задание.
Откройте файл с данной электронной таблицей (Приложение_В1-7). На основании данных, содержащихся в этой таблице, ответьте на два во Сколько учеников в Центральном округе (Ц) выбрали в качестве любимого предмета физику? ответ на этот во запишите в ячейку Н2 таблицы.
2. Каков средний тестовый у учеников Центрального округа (Ц)? ответ на этот во запишите в ячейку Н3 таблицы с точностью не менее двух знаков после запятой.

*** 1 ***
1. Определяем объем файла, необходимого для звучания в течении 1 сек.
Kсек=7500 / 10 = 750 (Кбайт)
2. Поскольку файл стереофонический, то он использует два звуковых канала, поэтому объем k1 следует уменьшить вдвое, получая объем, занимаемый одним каналом. k=Kсек / 2 = 750 / 2 = 375 (Кбайт) или 375 х 1024 = 384000 (байт)
2. Глубина звука 32 бита - это 32 / 8 = 4 байта. m=4.
3. Количество отсчетов на канал в секунду составит k / m = 384000 / 4 = 96000. Это соответствует частоте дискретизации 96 000 Гц или 96 Кгц.

*** 2 ***
Всего имеется 30х30=900 точек, которые занимают 1012.5 байт. Тогда одна точка занимает 1012.5 / 900 = 1.125 (байта) или 1.125 х 8 = 9 (бит).
В девяти битах можно разместить палитру, количество цветов в которой составляет два в девятой степени (считая, что черный - это тоже цвет).
- используется 512 цветов.

Var mass:array[1..20] of integer;
var i:integer;
var sum: integer;
begin
Randomize;
sum:=0;
for i:=1 to 20 do begin 
mass[i]:=Random (46) - 25;  write(mass[i],' '); 
end;

for i:=1 to 20 do 
if (i mod 2 = 0) then   
 sum+=mass[i];
writeln('Summa chetnih elementov: ', sum);

var kolTwo:integer;
kolTwo:=0;
for i:=1 to 20 do 
if (mass[i] = 2) then   
kolTwo+=1;  
writeln('Elementov = 2 - ', kolTwo);

for i:=1 to 20 do 
 if (mass[i] > 0) then   
mass[i] := 0;   
writeln('Noviy massiv ');
for i:=1 to 20 do 
write(mass[i],' ');
end.