Дан массив целых чисел, заполненный случайным образом из отрезка [-30; 40]. Найти сумму элементов массива, больших числа А. Число А вводится с клавиатуры. (паскаль)

Предыдущий
вопрос Следующий
вопрос

program ArraySum;

cons
N = 10; // длина массив
A = 15; // число A

va
arr: array[1..N] of integer
i, sum, numA: integer;

begi
// заполняем массив случайными числам
Randomize
for i := 1 to N d
arr[i] := RandomRange(-30, 40);

// выводим массив на экра
writeln('Массив:')
for i := 1 to N d
write(arr[i], ' ')
writeln;

// запрашиваем число
write('Введите число A: ')
readln(numA);

// находим сумму элементов массива, больших числа
sum := 0
for i := 1 to N d
if arr[i] > numA the
sum := sum + arr[i];

writeln('Сумма элементов массива, больших числа A: ', sum)
end.