Question

How to find the min and max of an int array in Pascal

Answer 1

program FindMinMax;

var
  i, min, max: Integer;
  arr: array[0..9] of integer = (3, 14, 4, 1, 5, 90, 2, 6, 89, 7);

begin
  min := arr[0];
  max := arr[0];
  
  { Iterate through the array to find min and max }
  for i := 0 to 9 do
  begin
    if arr[i] < min then
        min := arr[i];
    if arr[i] > max then
        max := arr[i];
  end;

  WriteLn('Minimum value: ', min);
  WriteLn('Maximum value: ', max);
end.



(*
run:

Minimum value: 1
Maximum value: 90

*)

 

70+ SQL courses for beginners and professionals