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.