Question

How to check if any value in a one-dimensional array a is larger than x in Pascal

Answer 1

program CheckAnyLarger;

const
  N = 7;

type
  TIntArray = array[1..N] of Integer;

var
  arr: TIntArray = (3, 4, 7, 2, 9, 1, 8);
  x: Integer;
  i: Integer;
  found: Boolean;

begin
  x := 5;
  found := False;

  for i := 1 to N do
  begin
    if arr[i] > x then
    begin
      found := True;
      Break;
    end;
  end;

  if found then
    WriteLn('There is at least one value greater than ', x, '.')
  else
    WriteLn('No values are greater than ', x, '.');
end.



(*
run:

There is at least one value greater than 5.
 
*)

 

70+ SQL courses for beginners and professionals