Помогите решить задачу(в Паскале) Дан массив из 20 элементов. найти количество четных и...

Question

Помогите решить задачу(в Паскале)
Дан массив из 20 элементов. найти количество четных и нечетных чисел в массиве

Comments

popcop помоги пожалуйста http://znanija.com/task/6182432

Answer 1

Var a:array[1..20] of integer;
i,k1,k2:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if odd(a[i]) then k2+=1;
if not odd(a[i]) then k1+=1;
end;
writeln(k1,' ',k2);
end.