Question

Задана последовательность из n вещественных чисел. определить сумму и количество элементов последовательности, меньше заданного значения d. (Pascal)

Answer 1

Program trash;

var

n, count, i: integer;

s, d, num: double;

begin

writeln('n, d: ');

readln(n, d);

for i:=1 to n do

begin

readln(num);

if num<d then

begin

s:= s + num;

inc(count);

end;

end;

writeln('Кол-во, сумма: ', count, ' ', s);

end.