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

Нужно перебрать все элементы массива. Если число нечётное, прибавить его к сумме.

Программа на Паскале:
program SumOdd;
var
  n, i, s: integer;
  a: array[1..100] of integer;
begin
  readln(n);
  s := 0;
  for i := 1 to n do
  begin
    read(a[i]);
    if a[i] mod 2 <> 0 then
      s := s + a[i];
  end;
  writeln(s);
end.

Оператор mod находит остаток от деления на \(2\). Если остаток не равен нулю, число нечётное.

0 0 Пожаловаться