<em>Исходя из атрибутивной концепции информации:</em>
Информация - это свойство всего сущего. (Свойство всего материального в мире)
Const
n = 20;
var
x: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('*** Исходный массив ***');
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
end;
Writeln;
Writeln('*** Результирующий массив ***');
for i := 1 to n do
begin
if (x[i] mod 2) = 0 then x[i] := 0;
Write(x[i]:4);
end;
end.
<em><u>Тестовое решение:</u></em>
*** Исходный массив ***
-4 -8 42 18 -4 -19 -35 21 19 32 -45 45 -43 -22 -17 -12 11 9 -47 37
*** Результирующий массив ***
0 0 0 0 0 -19 -35 21 19 0 -45 45 -43 0 -17 0 11 9 -47 37
Var
a : array [1..100] of integer;
i, sum : integer;
begin
for i := 1 to 100 do read (a[i]);
sum := 0;
for i := 1 to 100 do sum := sum + a[i];
write (sum);
end.
1)
[16, 32, 300, 2]
Формула нахождения объема закодированного звука
A = D * i * t * c (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Приводим единицы измерения
D = 16 кГц = 16000 Гц
t = 300 c
A = D * i * t * c = 16000 * 32 * 300 * 2 = 307200000.0 бит = 37500.0 Kбайт = 36.62109375 Мбайт
2)
[16, 32, 240, 1]
Приводим единицы измерения
D = 16 кГц = 16000 Гц
t = 240 c
A = D * i * t * c = 16000 * 32 * 240 * 1 = 122880000.0 бит = 15000.0 Kбайт = 14.6484375 Мбайт
Если принудительно прекращена работа даной программы в следствии ошибки/завершения её процесса пользователем/системным администратором
