1.Массив А состоит из 10 чисел,избранных случайным образом из интервала [-17;15].

Const
    n = 10;

var
    i, s: integer;
    a, b: array[1..n] of integer;

begin
    for i := 1 to n do
    begin
        a[i] := random(17 + 15) - 17;
        write(a[i], ' ');
        if a[i] lt; 0 then
            s := s + a[i];
    end;
    writeln();
    writeln(s);
end.