Даны n чисел. Как найти сумму чисел , больших чем заданное число a ?

Question

Даны n чисел. Как найти сумму чисел , больших чем заданное число a ?

Answer 1

const n=10;
var a,s,i: integer;
m:array[1..n] of integer;
begin
read(a);
for i:=1 to n do
if m[i]>a then s:=s+m[i];
end.