Нет. При алфавитном подходе считается количество элементарных символов, затем умножается на информационный объем каждого символа и в итоге получается объем всего сообщения.
Однако понятно, что одно и то же содержание можно выразить по-разному, с использованием различного количества символов (например, в русском языке можно выразить одно и то же разными словами разной длины). Тогда получится, что одно и то же содержание оценивается различным количеством информации.
Смотри решение во вложении
var
X: array [1..10] of integer;
a,s,i: integer;
begin
randomize;
write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)');
readln(s);
case s of
1: begin
writeln('Введите 10 элементов массива: ');
for i:= 1 to 10 do readln(X[i]);
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
2: begin
writeln('Массив: ');
for i:= 1 to 10 do
begin
X[i]:=random(101);
write(X[i]:4);
end;
writeln;
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
end;
<span>end. </span>
1)главное меню
2)всплывающее меню
3)контекстное меню
4)системное меню
Var s:string;
i,a:longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]='-') or (s[i]='*') or (s[i]='/') or (s[i]=',') then
inc(a);
writeln(a);
<span>end.</span>