Одномерный массив из 9 элементов заполнить случайным образом числами от 2 до 7. заменить все элементы массива меньше 5 нулями. вывести на экран монитора первоначальный и преобразованный массивы в столбик.
var i:integer; a:array[1..9]of integer; begin writeln('Исходный массив:'); for i:=1 to 9 do begin a[i]:=random(2,7); writeln(a[i]); end; for i:=1 to 9 do if a[i]<5 then a[i]:=0; writeln('Преобразованный массив:'); for i:=1 to 9 do writeln(a[i]); end.
I = K × i => K = I/i = 2^24/2^2 = 2^22 бита = 2^14 байт = 2^4 кб = 16 кб
ответ: 16 кб
4) 16 = 2^i => i = 4 бит
I = K × i = 384 × 4 = 1536 бит = 1536 ÷ 4 = 192 байт = 192 ÷ 1024 = 0,1875 кб (странгое число, но ладно)
ответ: 0,1875
5) Итак, мощность алфавита до 10 символов. Значит, из формулы N=2^i, i = либо 1, либо 2, либо 3, либо 4. Нам подходит только 2 и 3, так как 3/2 = 1,5, что подходит по условию (учитывая тот факт, что кол-во символов одинаковое, а объём больше в 1,5 раза, то значит и i в первом сообщении больше в 1,5 раза).
N = 2^i N = 2^3 = 8 N = 2^2 = 4
ответ: в первом алфавите - 8 символов, во втором - 4 символа.
var
i:integer;
a:array[1..9]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 9 do
begin
a[i]:=random(2,7);
writeln(a[i]);
end;
for i:=1 to 9 do
if a[i]<5 then a[i]:=0;
writeln('Преобразованный массив:');
for i:=1 to 9 do
writeln(a[i]);
end.