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]<d then begin
s:=s+m[i];
k:=k+1;
end;
writeln('Сумма чисел < d = ',s,' Колиество чисел < 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 < d) then begin
s:=s+m14;
k:=k+1;
end;
end;
writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);
end. (А это решение для того случая когда вы вводите элементы по одному )
const
x = 5;
var
a: array[1..x] of integer;
i, sum: integer;
begin
writeln('Все числа:');
for i := 1 to x do
begin
a[i] := random(-99, 99);
write(a[i], ' ');
if (a[i] mod 3 = 0) then
sum += a[i];
end;
writeln('Сумма чисел, кратных трём: ', sum);
end.