Помогите решить задачус клавиатуры вводятся 10 чисел, определите количество четных и...

Question

Помогите решить задачус клавиатуры вводятся 10 чисел, определите количество четных и нечётных чисел.пожалуйста!!​

Comments

Язык программирования какой?

---

Паскаль

Answer 1

Все очень легко и просто.

---

Answer 2

Program n_1;

var a, b, n, i:integer;

begin

   a:=0; b:=0;

   for i:=1 to 10 do begin

       read(n);

       if n mod 2 = 1 then a:=a+1

       else b:=b+1;

   end;

   writeln('Вы ввели ', b, ' четных и ', a, ' нечетных чисел');

end.