Var a:array[1..10] of integer;
i,max,min,s:integer;
begin
randomize;
for i:=1 to 10 do begin a[i]:=random(11); write(a[i],' '); end;
max:=a[1]; min:=a[1];
for i:=2 to 10 do begin
if a[i]> max then max:=a[i];
if a[i]< min then min:=a[i];<br>end;
s:=max+min;
writeln('Сумма максимального и минимального = ', s);
end.