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

Question

Информатика

Щетина

6 января, 00:13

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

+5

Ответы (1)

Знаете ответ на вопрос?

Вышемир · 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
begin

s: = s + num;

inc (count) ;

end;

end;

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

end.