Язык паскаль Даны натуральное число N и вещественные числа b1, b2, …, bn. Определить...

Question

Язык паскаль Даны натуральное число N и вещественные числа b1, b2, …, bn. Определить сумму тех вещественных чисел, которые больше P. Входные данные Во входном потоке в первой строке через пробел записаны два числа: натуральное число N (1 <= N <= 1000) и вещественное число P (-10000 <= P <= 10000). Во второй строке через пробел записаны N вещественных чисел bi(-10000 <= bi <= 10000). Выходные данные В выходной поток следует записать сумму тех вещественных чисел bi , которые больше P

Answer 1

Program n_1;

var n, i:integer;P, b, s: real;

begin

   read(n, P);

   s:=0;

   for i:=1 to n do begin

       read(b);

       if b>P then s:=s+b;

   end;

   writeln(s:0:10);

end.