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>
16 Кбайт = 131072 бит;
16 симв · 40 строк · 8 бит = 19 200;
16 Кб (то есть 131072 бит) ÷ 19 200 = 6,8
В ответе пишем 6 страниц.
Решение во вложении. Не забудьте разрешить исполнение макросов.
Исходную матрицу надо выделить, затем щелкнуть по кнопке, запускающей решение.