Найти сумму элементов массива, больших данного числа b (b вводится с клавиатуры).

Паскаль

Program gt;

var a:array[1 ... 1000]of real;

n, i:integer;

s, b:real;

begin

readln (n) ; / / n - кол-во чисел массива

readln (b) ; / / b-число которое вводиться с клавиатуры для проверки

s:=0;

for i:=1 to n do

begin

read (a[i]) ;

if (a[i] > b) then s:=s+a[i];

end;

writeln (s) ;

end.