var i,res,k:integer;
a:array[1..10] of integer;
begin
k:=0;
for i:=1 to 10 do
a[i]:=random(10,50);
res:=1;
for i:=1 to 10 do
if (a[i] mod 2=1) and (a[i] mod 5=0) then begin
res:=res*a[i];
k:= k+1;
end;
if k=0 then write('Таких чисел нет') else
write(res);
end.
46 байт= 368 бит. Считаем все знаки, считая пробелы
I = i*n,
где I - <span>информационный объём сообщения, i - кол-во информации для хранения 1 символа в данном алфавите, n - кол-во символов
I = 2*74 = 144 байт
Ответ: 144 байт.</span>