Дан массив M в интервале от - 15 до 30; Найти сумму и количество отрицательных элементов.

program zz1;

const n = 5; / /задаем количество элементов в массиве

var i, s, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / записываем в массив числа случайным образом

m[i]:=random (46) - 15;

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

writeln;

for i:=1 to n do / / проверяем, если элемент отрицательный, то находим количество и сумму

if m[i] < 0 then begin k:=k + 1; s:=s + m[i]; end;

writeln (' количество отрицательных элементов = ', k); / / выводим ответ

writeln (' сумма отрицательных элементов = ', s);

end.