Помогите пожалуйста с 2-мя задачками

[Shatyn]

Помогите пожалуйста с 2-мя задачками
1. Дано натуральное n, действительное число х. Вычислить:
sin x+sin x2+…+sin xn
2. Проверить, все ли элементы заданного массива A(N) положительны.

[Plague]

1.
введите(x);
sum:=0;
for i:=1 to n do sum:=sum+sin(i*x);

2.
l:=true;
for i:=1 to n do
if a[i]<0 then l:=false; //можно break поставить
if l then вывести('Да') else вывести('Нет');