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

Question

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

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write('массив: ');
var a:=ArrRandom(10,-100,100).Println();
write('сумма нечетных: ',a.Where(x->x.IsOdd).Sum());
end.

Answer 2

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