var x,i,n,max,min:integer; begin readln(n); read(x); max:=x; min:=x; for i:=1 to n-1 do begin readln(x); if min > x then min:=x; if max < x then max:=x; end; writeln(min,' ',max);
Var a,b:longint; function sum (n:integer):integer; var s:integer; begin s:=0; while (n<>0) do begin s:=s+n mod 10; n:=n div 10; end; sum:=s; end; begin write ('A = '); readln (a); write ('B = '); readln (b); if sum(a) > sum(b) then writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b)) else if sum(b) > sum (a) then writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a)) else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа'); readln; end.
Var a,b:longint; function sum (n:integer):integer; var s:integer; begin s:=0; while (n<>0) do begin s:=s+n mod 10; n:=n div 10; end; sum:=s; end; begin write ('A = '); readln (a); write ('B = '); readln (b); if sum(a) > sum(b) then writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b)) else if sum(b) > sum (a) then writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a)) else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа'); readln; end.
uses crt;
var x,i,n,max,min:integer;
begin
readln(n);
read(x);
max:=x; min:=x;
for i:=1 to n-1 do
begin
readln(x);
if min > x then min:=x;
if max < x then max:=x;
end;
writeln(min,' ',max);
end.