Find the sum of the elements of the array A (10), the values of which lie in the range from 15 to 75.

// sample program in Pascal.

var
i, sum: integer; // declare variables of integer type.
arr: array [1..10] of integer; // declare an array.
s: string; // declare a variable of string type.
begin
for i: = 1 to 10 do // start of the cycle.
begin
arr [i]: = random (15, 75); // fill the array with random numbers from the range 15; 75.
s: = s + arr [i] + ”; // write the array to one line.
sum: = sum + arr [i]; // count the sum of the array elements.
end;
writeln (‘Array:’, s); // display the array elements.
writeln (‘The sum of the array elements is:’, sum); // display the sum of the array elements.
end.