Const
  n=10;
var
  a:array[1..n] of integer;
  i,s,k:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  s:=0; k:=0;
  for i:=1 to n do begin
    a[i]:=Random(31)-10;
    Write(a[i]:4);
    if a[i]<5 then begin Inc(k); s:=s+a[i] end
    end;
  Writeln;
  Writeln('Элементов, меньших 5: ',k,', их сумма равна ',s)
end.

Пример
Исходный массив
  18  18   9  -7   2 -10   9  16  11  -7
Элементов, меньших 5: 4, их сумма равна -22