Задана последовательность из n вещественных чисел. Определить сумму и количество элементов

Program zadacha;

Const n = 10;

Type mas=array[1..n] of integer;

Var s,i,k,d:integer;

m:mas;

Begin

s:=0;

k:=0;

readln(d);

For i:=1 to n do

read(m[i]);

For i:=1 to n do

if m[i]lt;d then begin

s:=s+m[i];

k:=k+1;

end;

writeln('Сумма чисел lt; d = ',s,' Колиество чисел lt; d = ',k);

end. (Это решение для варианта если вы вводите сходу весь массив чисел)

Program zadacha;

Const n = 10;

Var s,i,k,d,m:integer;

Begin

s:=0;

k:=0;

readln(d);

for i:=1 to n do begin

readln(m);

if (m lt; d) then begin

s:=s+m14;

k:=k+1;

end;

end;

writeln('Сумма чисел lt; d = ',s,' Колиество чисел lt; d = ',k);

end. (А это решение для того варианта когда вы вводите элементы по одному )