Вычислить сумму отрицательных элементов массива. Программа паскаль.

[dukkill]

Вычислить сумму отрицательных элементов массива. Помогите составить, пожалуйста.

[Костя КС]

...
sum := 0;
for i := 1 to n do
 if mas[i] < 0 then sum := sum + mas[i];
writeln(sum);
end.

[dukkill]

а можно полностью запись программы? А то с моим началом она не запускается... Записать сюда не могу, т.к с телефона. Хотелось бы проверить что я не так сделал...

[Necare]

program sumotricelem;
var
i,n,sum : integer;
mas: array[1..255] of integer;
begin
writeln('Введите количество элементов массива');
readln(n);
writeln('Введите элементоы массива');
sum:=0;
for i:=1 to n do
readln(mas[i]);
for i:=1 to n do
if mas[i]<0 then sum:=sum+mas[i];
Write('Количество отрицательных элементов массива:');
writeln(sum);

end.