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

  • Автор темы Ptica
  • Дата начала
P

Ptica

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

Условие:
Дан одномерный массив В [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.
Верно ли мое решение? Все ли условия выполнены?