Вычислить сумму положительных элементов массива

S:=0; // Сумма
For i:=1 to n do // n - количество элементов в массиве
 If A[i]>0 then  s:=s+A[i];