Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

(Паскаль)
разработайте программу, определяющую количество нечётных чисел в целочисленном массиве из 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.