Написать программу заполнить массив из 15 элементов случайными числами (-50; 50)посчитать сумму всех элементов массива посчитать количество отрицательных элементов.

Если нужно на Паскале:

program test;
var mas : array[1..15] of integer;
sum : integer;
otr : integer;
i: integer;

begin
sum := 0;
otr := 0;
randomize;
for i:=1 to 15 do
begin
    mas[i] = -50 + random(100);
    sum := sum + mas[i];
    if mas[i] < 0
        then otr := otr + 1;
end;
writeln ('Сумма: ' + sum);
writeln ('Количество отрицательных элементов: ' + otr);
end.