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

Если нужно на Паскале:program test;var mas : array[1..15] of integer;sum : integer;otr : integer;i: integer;beginsum := 0;otr := 0;randomize;for i:=1 to 15 dobegin    mas[i] = -50 + random(100);    sum := sum + mas[i];    if mas[i] < 0        then otr := otr + 1;end;writeln ('Сумма: ' + sum);writeln ('Количество отрицательных элементов: ' + otr);end.