(Паскаль)
разработайте программу, определяющую количество нечётных чисел в целочисленном массиве из 17 элементов. массив заполнить любым способом и вывести на экран в одну строку

var a:array[1..17] of longint;  n,i,j:longint;begin  For i:=1 to 17 do  begin   Read(a[i]);   if odd(a[i]) then inc(n);end;writeln(n);end.