var a:String;
i,sum:Integer;
begin
writeln('Введите последовательность чисел:');
readln(a);
a := a.Replace(' ', '');
writeln('Количество чисел:' + a.Length);
for i := 1 to a.Length do
sum := sum + strToInt(a[i]);
writeln('Сумма: ' + sum);
end.
Объяснение:
В начале я запросил последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.
Ввод:
1 2 3 4 5
Вывод:
Количество чисел: 5
Сумма: 15
ответ: D.