<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var s:=a.Where(t->t.IsEven); s.Println; Writeln('Кол-во = ',s.Count);
s:=a.Where(t->t.IsOdd).Reverse; s.Println; Writeln('Кол-во = ',s.Count);
var imax:=a.IndexMax;
Writeln('Номер максимального элемента- ',imax+1,
', его значение- ',a[imax])
end.
<u>Пример</u>
n= 15
-39 29 23 4 -26 41 23 -9 10 49 -24 39 -28 19 15
4 -26 10 -24 -28
Кол-во = 5
15 19 39 49 -9 23 41 23 29 -39
Кол-во = 10
Номер максимального элемента- 10, его значение- 49
Program name;
var a,b,s:real;
begin
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln(s);
end.
Если не понятно, пиши комментарий, объясню.
1. Определим размер файла, содержащего 1с записи.
Частота дискретизации по времени 16 кГц означает, что за 1с снимаются 16000 отсчетов громкости в каждом канале, а всего 4×16000=64000 отсчетов..
Частота дискретизации по уровню громкости (разрешение) составляет 32 бита или 32/8=4 байта и поэтому файл запись потребует для хранения одной секунды 64000×8=512000 байт = 512000/1024 = 500 Кбайт.
2. Найдем время записи
60 Мбайт = 60×1024 = 61440 Кбайт - общий объем файла
61440/500 = 122.88 с = 2 мин 2.88 с
Ответ: а) 2 мин.