Дан одномерный массив из 5 элементов. Найти сумму всех положительных элементов массива. Начало такое var a: array[1..5] of integer;
Дан одномерный массив из 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.
Не нашли ответ?
Похожие вопросы