Question

помогите пожалуйста)).​

Answer 1

var i,max,min,n:integer;

begin

  readln(n);

  min:=n;max:=n;

  for i:=2 to 20 do

  begin

     readln(n);

     if i<=10 then begin if n<=min then min:=n; end;

     if i>=10 then begin if n>=max then max:=n; end;

  end;

  write('min=',min,'  max=',max);

end.