Untitled

procedure MinMax(n:integer, a1, a2, a3, ..., an:integer)
begin
  min := a1
  max := a1
  for i := 2 to n do
    if ai < min then
      min := ai
    else ai > max then
      max := ai
end