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.