Question

Дан массив целых чисел.Найти сумму элементов,имеющих нечетное значение.(Паскаль)

Answer 1

var
a:array[1..100000] of integer;
n, i,sum:integer;
begin
Write('Введите количество элементов массива -> ');
readln(n);
Write('Введите массив -> ');
For i:= 1 to n do
  begin
    Read(a[i]);
    if a[i] mod 2 = 1 then sum := sum + a[i];
  end;
Writeln(sum);
end.

Пример:

Введите количество элементов массива -> 5
Введите массив -> 1 2 3 4 5
9