Камера снимает видео без звука с частотой 24 кадра в секунду, при этом изображения используют палитру, содержащую 22^4 = 16 777 216 цветов. параллельно производится запись стереозвука. 1 минута видеоряда в среднем занимает 36 мбайт, 1 минута звуковой дорожки занимает в среднем 6 мбайт. для хранения видео преобразуют так, что для изображений используется палитра в 256 цветов, а звук перезаписывается в формате моно, при этом частота дискретизации уменьшается в 2 раза, а глубина кодирования уменьшается в 1,5 раза. другие преобразования и иные методы сжатия не используются. сколько мбайт в среднем занимает 1 минута преобразованного видео со звуком?
1.
const n=10;
var a:array [1..n] of integer;
i:integer;
begin
for i:= 1 to n do read (a[i]);
write(' Массив: ');
for i:= 1 to n do write (a[i],' ');
writeln;
write('Массив в обратной последовательности: ');
for i:= n downto 1 do write (a[i],' ')
end.
2.
const n=10;
var a:array [1..n] of integer;
i,s:integer;
begin
for i:= 1 to n do read (a[i]);
write('Массив: ');
for i:= 1 to n do write (a[i],' ');
writeln;
write ('Номера нулевых элементов: ');
for i:= 1 to n do if a[i]<0 then
begin
a[i]:=0;
write(i,' ')
end
end.
3.
const n=10;
var a:array [1..n] of integer;
i,sp,kp,so,ko:integer;
begin
for i:= 1 to n do read (a[i]);
write('Массив: ');
for i:= 1 to n do write (a[i],' ');
writeln;
for i:= 1 to n do
begin
if a[i]>0 then
begin
sp:=sp+a[i];
kp:=kp+1
end;
if a[i]<0 then
begin
so:=so+a[i];
ko:=ko+1
end;
end;
writeln('Среднее арифметическое положительных элементов массива равно ',sp/kp:0:3);
writeln('Среднее арифметическое отрицательных элементов массива равно ',so/ko:0:3)
end.