Calculate the sum of even numbers in array A (10).

var
number, sum_of_elements_in_array: integer;
arr: array [1..10] of integer;

begin
for number: = 1 to 10 do
begin
arr [number]: = random (10);
write (arr [number]: 5);
if arr [number] mod 2 = 0 then
sum_of_elements_in_array: = sum_of_elements_in_array + arr [number];
end;
writeln ();
writeln (‘Sum of even array elements:’, sum_of_elements_in_array);
end.