Question

How to find the longest string in an array of strings with Pascal

Answer 1

program FindLongestStringInArray;

uses SysUtils; // For Length function

var
  arr: array[1..5] of string = ('pascal', 'SysUtils', 'programming', 'begin', 'end');
  longestString: string;
  i: Integer;
  maxLength: Integer;

begin
  if Length(arr) > 0 then // Check if the array is not empty
  begin
    longestString := '';
    maxLength := 0;

    for i := Low(arr) to High(arr) do
    begin
      if Length(arr[i]) > maxLength then
      begin
        maxLength := Length(arr[i]);
        longestString := arr[i];
      end;
    end;

    Writeln('Longest string: ', longestString);
  end
  else
    Writeln('Array is empty');
end.



(*
run:
  
Longest string: programming
  
*)

 

70+ SQL courses for beginners and professionals