Язык паскаль
Даны натуральное число N и вещественные числа b1, b2, …, bn. Определить сумму тех вещественных
чисел, которые больше P.
Входные данные
Во входном потоке в первой строке через пробел записаны два числа: натуральное число N (1 <= N <=
1000) и вещественное число P (-10000 <= P <= 10000). Во второй строке через пробел записаны N
вещественных чисел bi(-10000 <= bi <= 10000).
Выходные данные
В выходной поток следует записать сумму тех вещественных чисел bi
, которые больше P
Даны натуральное число N и вещественные числа b1, b2, …, bn. Определить сумму тех вещественных
чисел, которые больше P.
Входные данные
Во входном потоке в первой строке через пробел записаны два числа: натуральное число N (1 <= N <=
1000) и вещественное число P (-10000 <= P <= 10000). Во второй строке через пробел записаны N
вещественных чисел bi(-10000 <= bi <= 10000).
Выходные данные
В выходной поток следует записать сумму тех вещественных чисел bi
, которые больше P
More Questions From This User See All
Answers & Comments
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.