Предположим, что в алфавите из 32 букв (а, б, в, г, д, (е, ё), ж, з, и, и, к, л, м, н, о, п, р, с, т, - id513767220220613 от Skuzairov 13.06.2022 22:23

Question

Информатика: Предположим, что в алфавите из 32 букв (а, б, в, г, д, (е, ё), ж, з, и, и, к, л, м, н, о, п, р, с, т, у, ф, х, ц, ч, ш, щ, ы, (ь, ъ), э, ю, я, пробел) все буквы равновероятны, т.е. употребляются в текстах с одинаковой частотой. подсчитать количество информации в битах на одну букву.

Skuzairov · Accepted Answer

Var i,ne,ch,n:integer;
a:array of integer; //объявление динамического массива
begin
write('Введите длину массива :');
readln(n);
randomize;
a:= new integer[n+1];// установка размера (n+1) динамического массива
for i:=1 to n do
begin
a[i]:=random(80)+20;
write(a[i],' ');//Вывод на экран полученного массива
if odd(a[i]) then inc(ne);// odd() - функция,определяющая нечетность числа.Возвращает значение True, если число нечетное
end; //inc() - функция инкремент - увелечения на 1.
ch:= n-ne;
writeln;
writeln('Нечетные=',Ne);
writeln('Четные=',Ch);
end.

MOGZ ответил