Камера снимает 60 кадров в секунду, с разрешением 1920 на 1080 точек, при этом используется 24-разрядное кодирование цвета. Также записывается стереозвук: две звуковых дорожки с частотой 44100 Гц и глубиной кодирования 32 бит. Видео мы записываем на жесткий диск, на котором указана емкость «1 терабайт». Но мы знаем, что производители жестких дисков при переводе из байтов в килобайты, из килобайтов в мегабайты и т.д. используют коэффициент не 1024 (как для объема оперативной памяти), а 1000. То есть реальная емкость диска в привычных нам двоичных единицах измерения будет не 1024 гигабайта, а меньше.
Изначально наш жесткий диск был совершенно пуст. Но мы уже отсняли 20 минут видео!
Сколько минут видео мы еще можем отснять?
ответ округлите в меньшую сторону до целого числа, в ответе укажите только число.
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
- Самая ценная информация – объективная, достоверная, полная, и актуальная.
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
begin
readln(a[i]);
//если ввели положительное число,увеличим перем. otr на 1
if a[i] < 0 then
inc(otr);
//если ввели отрицательное число,увеличим перем. k на 1
//и к переменной m прибавим элемент
if a[i] > 0 then
begin
inc(k);
inc(m, a[i]);
end;
end;
//заполним массив d
for i:=1 to l do
//если индекс четный, присвоим элементу otr
//иначе присвоим среднее арифметическое
if i mod 2 = 0 then
d[i] := otr
else
d[i] := m/k;
end.