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

в паскале?

да

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.

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