Question

Дан линейный массив А[1..N], содержащий целые числа. Вычислить сумму нечётных чисел.

Answer 1

Var a:array[1.. 1000] of integer;
i,s:integer;
begin
write('Введите размер массива n='); readln(n);
s:=0;
for i:=1 to n do
if a[i]mod 2 =1 then s:=s+a[i];
writeln('Сумма нечетных чисел массива равна ' , s);
end.