По какой формуле можно вычислить количество информации, содержащейся в сообщении.

1.

var m,n:real;
begin
writeln ('Введите 2 числа:');
readln (m,n);
if m>n then
begin
m:=m-3;
n:=n*2;
writeln ('m = ',m,' n = ',n)
end
else
begin
n:=n-3;
m:=m*2;
writeln ('m = ',m,' n = ',n);
end;
<span>end.

А второе я не знаю как решить(</span>

Var ar:array[1..10] of integer;
s,i:integer;
begin;
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>0 then s:=s+ar[i];
end;
writeln(s);
end.

Много) Очень много) Очень очень много)

Program n1;
const n=10;
var a: array [1..n] of integer;
i,sum,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(34);
write(a[i],' ');
end;
writeln;
sum:=0;
k:=0;
for i:=1 to n do if a[i] mod 3 = 0 then
begin
k:=k+1;
sum:=sum +a[i];
end;
writeln('кол-во: ',k);
writeln('сумма: ',sum);
writeln('ср. арифм: ',sum/k);
end.