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
I = 2.
A = 6.
1. A = 6 + 2 = 8.
I = 2 + 1 = 3.
2. A = 8 + 3 = 11.
I = 3 + 1 = 4.
3. A = 11 + 4 = 15.
I = 4 + 1 = 5.
Ответ: A = 15, I = 5.
<span>Объем = 11 * 1024 = 11264 байт. Соотношение байт с количеством символов - 1 к 1. Значит каждый символ алфавита кодируется одним байтом. В одном байте 8 бит, соответственно мощность алфавита - 2^8 = 256 символов...</span>
Валерия 12.5 мб/с Олеся 11.8 мб/с Полина 12.9 мб/с
3600/12.9=279
выразим размер файла в Мб: 1562/1024=1,525Мб
теперь узнаем сколько таких файлов поместится на компакт-диск
650/1,525=426 файлов это и есть ответ