<span>var</span>
a1<span>,</span> a2<span>,</span> a3<span>,</span> max<span>:</span><span>integer</span>;
<span>begin</span><span>write</span><span>(</span><span>'Введите три числа: '</span><span>)</span>;
<span> readln</span><span>(</span>a1<span>,</span> a2<span>,</span> a3<span>)</span>;
<span>if</span> a1 ><span>=</span> a2
<span>then</span> max <span>:=</span> a1
<span>else</span> max <span>:=</span> a2;
<span>if</span> a3 > max
<span>then</span> max <span>:=</span> a3;
<span>writeln</span><span>(</span><span>'Наибольшее из них: '</span><span>,</span> max<span>)</span>;
<span>readln</span>
<span>end</span>.
I(информационный объем)=К(количество символов)*i(информационный вес)
I=102*1=102 байта
const
n = 5;
m = 5;
var
a, b: array[1..n, 1..m] of integer;
c: array[1..n, 1..m] of real;
i, j, s, count: integer;
begin
for i := 1 to n do
for j := 1 to m do begin
a[i, j] := random(20);
b[i, j] := random(20);
s := s + a[i, j] + b[i, j];
inc(count);
end;
writeln('Ср. арифметическое эл.: ', s / count);
for i := 1 to n do
for j := 1 to m do begin
c[i, j] := s / count;
write(c[i, j], ' ');
if(j mod m = 0) then writeln;
end;
end.
26+26 вроде так...........................