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] < 0 then
            s := s + a[i];
    end;
    writeln();
    writeln(s);
end.