Question

How to find the second biggest number in a set of random numbers in Pascal

Answer 1

program SecondMaxFinder;

function FindSecondMax(total, rndmax: integer): integer;
var
  max, before_max, n, i: integer;
begin
  randomize;
  n := random(rndmax) + 1;
  writeln(n);
  max := n;
  before_max := n;

  for i := 1 to total - 1 do
  begin
    n := random(rndmax) + 1;
    writeln(n);
    if n > max then
    begin
      before_max := max;
      max := n;
    end
    else if n > before_max then
      before_max := n;
  end;

  FindSecondMax := before_max;
end;

var
  secondMax: integer;

begin
  secondMax := FindSecondMax(10, 100);
  writeln('The second biggest number is: ', secondMax);
end.




(*
run:

43
81
75
94
36
42
93
53
68
49
The second biggest number is: 93

*)

 

70+ SQL courses for beginners and professionals