Const n=3; var a:array [1..n] of Integer;x,q,i:Integer;b,l,z:Real; begin for i:=1 to n do begin Write('a[',i,']='); ReadLn(a[i]); end; x:=a[1]; for i:=2 to n do if x<a[i] then x:=a[i]; z:=x; writeln(z:3:3,'-naibolshoe'); q:=a[1]; for i:=2 to n do if q>a[i] then q:=a[i]; l:=q; writeln(l:3:3,'-naimenshoe'); b:=(x+q)/2; WriteLn(b:3:2,'-serednoe') ; readln; end.
1 - сумма двух чисел, 8 - сумма одного из слагаемых первого числа, а также нового, третьего числа. Так как 1 - сумма двух натуральных чисел, легко сделать вывод, что это числа 1 и 0. Значит 8 - сумма чисел либо 8 и 0, либо 7 и 1. Комбинируем числа из 0, 7 и 1, так как это число точно будет меньше, чем состоящее из 1, 0 и 8. Пусть 1 и 0 - первое и второе числа, тогда... ошибка. 8 - сумма 2-го и 3-го чисел. А 0 не может стоять в разряде сотен. Значит комбинируем из 0, 1 и 8: 1 - первое, 0 - второе и 8 - третье; 1+0=1, 0+8=0, вместе 81. ответ: 108.
var a:array [1..n] of Integer;x,q,i:Integer;b,l,z:Real;
begin
for i:=1 to n do
begin
Write('a[',i,']=');
ReadLn(a[i]);
end;
x:=a[1];
for i:=2 to n do
if x<a[i]
then x:=a[i];
z:=x;
writeln(z:3:3,'-naibolshoe');
q:=a[1];
for i:=2 to n do
if q>a[i]
then q:=a[i];
l:=q;
writeln(l:3:3,'-naimenshoe');
b:=(x+q)/2;
WriteLn(b:3:2,'-serednoe') ;
readln;
end.