teza1fis.pas

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

program teza1;
var  f1,f2:text;
     v:array [1..100] of integer;
     n,i,max,min:integer;
begin
assign(f1,'nr.in');
reset(f1);
assign(f2,'nr.out');
rewrite(f2);
while not eof(f1) do
                  begin
                  n:=0;
                  while not eoln(f1) do
                                     begin
                                     n:=n+1;
                                     read(f1,v[n]);
                                     end;
                  max:=v[1];
                  for i:=2 to n do
                    if v[i]>max then max:=v[i];
                  min:=v[1];
                  for i:=2 to n do
                     if v[i]<min then min:=v[i];
                  writeln(min,' ', max);
                  readln(f1);
                  end;
close(f1);
close(f2);
readln;
end.