Помогите решить задачу(в Паскале) Дан массив из 20 элементов. найти количество четных и нечетных чисел в массиве
Answers & Comments
PopCop312
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.
Answers & Comments
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.