Дан одномерный массив из 5 элементов. Найти сумму всех положительных элементов массива.
Начало такое
var a: array[1..5] of integer;
Summa:=0;
for i:=1 to n do
if a[i]mod 2 <>0 then summa:=summa+a[i];
end.
Оцени ответ
