Procedure maxminsum(a,b,c:real);
var
sum,max,min:real;
begin
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>b) and (c>a) then max:=c;
if (a<b) and (a<c) then min:=a;
if (b<a) and (b<c) then min:=b;
if (c<b) and (c<a) then min:=c;
sum:=a+b+c;
writeln('max = ',max);
writeln('min = ',min);
writeln('sum = ',sum);
end;
var a,b,c:real;
begin
readln(a,b,c);
maxminsum(a,b,c);
<span>end.</span>
Зрительная, так как только её нельзя написать..
Кол-во символов=65536, объем=24Кбайт
инф.объем одного символа=24*1024*8бит/65536=3 бита
мощность N=2³=8 символов в алфавите
program znan;
var
x:array [1..1000, 1..1000] of real;
m,n,i,j:LongInt;
begin
ReadLn(n,m);
for i:=1 to n do
for j:=1 to m do
begin
Read(x[i,j]);
if x[I,j]>=0 then
x[I,j]:=x[I,j]*5 else
x[I,j]:=x[I,j]/2;
end;
end.