Question

How to find the second largest number in int array with Pascal

Answer 1

program SecondLargestNumber;

var
  arr: array[0..9] of integer = (3, 14, 4, 1, 5, 90, 2, 6, 85, 7);
  size, i, largest, secondLargest: integer;

begin
    size := length(arr);

    if size < 2 then
    begin
        writeln('Array should have at least two elements.');
        exit;
    end;
    
    largest := arr[1];
    secondLargest := -MaxInt;

    for i := 2 to size do
    begin
        if arr[i] > largest then
        begin
            secondLargest := largest;
            largest := arr[i];
        end
        else if (arr[i] > secondLargest) and (arr[i] <> largest) then
            begin
                secondLargest := arr[i];
            end;
    end;

  if secondLargest = -MaxInt then
    writeln('There is no second largest element.')
  else
    writeln('The second largest element is: ', secondLargest);
end.



(*
run:

The second largest element is: 85

*)

 

70+ SQL courses for beginners and professionals

Answer 2

program SecondLargestNumber;

var
  arr: array[1..10] of integer;
  i, largest, secondLargest: integer;

begin
  { Initialize the array with some values }
  arr[1] := 34; arr[2] := 23; arr[3] := 45; arr[4] := 12; arr[5] := 77;
  arr[6] := 89; arr[7] := 78; arr[8] := 56; arr[9] := 90; arr[10] := 13;

  { Initialize largest and secondLargest }
  largest := -MaxInt;
  secondLargest := -MaxInt;

  { Iterate through the array to find the largest and second largest numbers }
  for i := 1 to 10 do
  begin
    if arr[i] > largest then
    begin
      secondLargest := largest;
      largest := arr[i];
    end
    else if (arr[i] > secondLargest) and (arr[i] <> largest) then
    begin
      secondLargest := arr[i];
    end;
  end;

  writeln('The second largest number in the array is: ', secondLargest);
end.



(*
run:

The second largest number in the array is: 89

*)

 

70+ SQL courses for beginners and professionals