Задача с массивом

[Ptica]

Помогите, плиз, с задачей.

Условие:
Дан одномерный массив В [30] элементы которого формулируются по формуле Bi=i sin i,где i-номер элемента в массиве В .Подсчитать сумму всех отрицательных элементов массива. На экран вывести сам массив и сумму.

Мое решение:

uses crt;
{type}
var i,k:integer;
f:array[0..29] of real;
begin
for i:=0 to 29 do
begin
f[i]:=i*sin(i);
if f[i]<0 then k:=k+1;
end;
for i:=0 to 29 do
begin
writeln('f[',i,']=',f[i])
end;
writeln ('Summa otricatelnyh elementov massiva',k);
end.

Верно ли мое решение? Все ли условия выполнены?

 

[hosm]

Подсчитать сумму всех отрицательных элементов массива.
if f<0 then k:=k+1;

неправильно. разницу между словом "сумма" и "количество" понимаете?