Pascal.pas

Pascal.pas

program SumOfEvenNumbers;

const
  MaxArraySize = 100;  // Maximum size of the array

var
  Numbers: array[1..MaxArraySize] of Integer;
  Size, Sum: Integer;

procedure CalculateSumOfEvenNumbers(arr: array of Integer; n: Integer; var result: Integer);
var
  i: Integer;
begin
  result := 0;
  for i := 0 to n - 1 do
  begin
    if arr[i] mod 2 = 0 then
      result := result + arr[i];
  end;
end;

begin
  writeln('Enter the number of elements: ');
  readln(Size);

  writeln('Enter ', Size, ' integers:');
  for i := 1 to Size do
  begin
    readln(Numbers[i]);
  end;

  CalculateSumOfEvenNumbers(Numbers, Size, Sum);

  writeln('Sum of even numbers: ', Sum);
end.