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

Предыдущий
вопрос Следующий
вопрос

program SumAndCountLessThanD;

var
n, i, count: integer;
d, sum: real;

begin
sum := 0;
count := 0;

write('Введите количество элементов в последовательности: ');
readln(n);

write('Введите число d: ');
readln(d);

for i := 1 to n do
begin
write('Введите ', i, ' элемент последовательности: ');
readln(value);

end;

writeln('Сумма элементов последовательности, меньших ', d, ': ', sum);
writeln('Количество элементов последовательности, меньших ', d, ': ', count);
end.