Для того, чтобы заполнить массив случайными числами, используем функцию random. Если у функции указан аргумент(N), то будут получаться числа из диапазона от 0 до N, не включая N! Нам нужно от -10 до 10, поэтому методом подгонки зададим: A[i]:=random(20)-10.randomize - это процедура, необходимая для активизации датчика случайных чисел.program AA;varA: array [1..100] of integer;i,s: integer;beginclrscr;randomize; for i:=1 to 10 do A[i]:=random(20)-10;for i:=1 to 10 do if A[i]<0 then s:=s+ A[i];writeln(\'Сумма отрицательных элементов массива равна:\' s);readlnend.