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

Question

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

Comments

Var A:array[1..17] of integer;i,N:integer;BeginN:=0;For i:= 1 to 17 do Begin A[i]:=random(17); Write(A[i],' '); if A[i] mod 2 = 0 then N+=1 End;WriteLn;WriteLn('Кол-во чётных чисел = ',N)End.

---

спасибо физик

Answer 1

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.