Дан одномерный массив натуральных чисел из 12 элементов. Найдите количество четных чисел.

Question

Дан одномерный массив натуральных чисел из 12 элементов. Найдите количество четных чисел.

Comments

в паскале?

---

да

---

Program P1; Uses crt; Var i,xinterger; A:array[1...12] of integer; Begin x:=0 From I=1 to 12 doif a[i] mod 2 = 0 then k:=k+1; Writeln (A[I], ' ') End

---

Вот так?

---

ну, сначала нужно создать сам массив, я не знаю, он вам нужен с любыми числами, или чтобы самим вводить?

---

С любыми числми наверное, в задании не было указано

---

пусть будет со случайными числамиprogram p1;var i,k: integer, a: array[1..12] of integer;beginfrom i=1 to 12 doa[i] := random(1,20); (то есть массив будет из случайных чисел от 1 до 20)k:=0;from i=1 to 12 do begin print ('a[', i, '] = ',a[i]); if a[i] mod 2 = 0 then k:=k+1; end;print ('в массиве ', k, 'чисел');end.

Answer 1

(если i - кол-во элементов массива, a[i] - массив; добавить в переменные k-количество четных чисел, integer)
k:=0
from i=1 to 12 do
if a[i] mod 2 = 0 then k:=k+1
не забудь вывести значение, если необходимо

Comments

получается вот так?:

---

Program P1; Uses crt; Var i,xinterger; A:array[1...12] of integer; Begin x:=0 From I=1 to 12 do

---

if a[i] mod 2 = 0 then k:=k+1; Writeln (A[I], ' ') End