Question

Дан одномерный массив из 5 элементов. Найти сумму всех положительных элементов массива.
Начало такое
var a: array[1..5] of integer;

Answer 1

summa:=0;
 for i:=1 to n do
if a[i]mod 2 <>0 then summa:=summa+a[i];
end.

Answer 2

Спасибо