a63.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 21 行

var f,g:text;
    n,x,min,max:integer;
begin
assign(f,'numere.in');reset(f);
assign(g,'numere.out');rewrite(g);
while not eof(f) do begin
                    read(f,x);
                    min:=x;
                    max:=x;
                    while not eoln(f) do begin
                                         read(f,x);
                                         if x<min then min:=x;
                                         if x>max then max:=x;
                                         end;
                   writeln(g,min,' ',max);
                   end;
close(f);
close(g);
readln;
end.