const
   n = 10;
type
   mas = array[1..n] of integer;
var
   a: mas;
   i: byte;
   sum:integer;
begin
   for i:=1 to n do begin
       a[i]:=random(-10,19);
       if a[i] > 2 then sum:=sum+a[i];
   end;
   writeln('Сумма: ',sum);
   writeln('Массив: ',a);
end.