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.