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

Question

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

Answer 1

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

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.