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

Помогите ПОЖАЛУЙСТА!!!
Дан одномерный массив А[N] подсчитать количество чётных значений элементов массива.

Ответ оставил Гость

Const
n=10;
var cp,i:integer;
A:array[1..n] of integer;
begin
for i:=1 to n do
begin
write(A[,i,]=);
read(a[i]);
if a[i] mod 2=0 then cp:=cp+1;
end;
writeln(Кол-во четных элементов в массиве равно ,cp);
end.