Помогите решить задачу(в Паскале) Дан массив из 20 элементов. найти количество четных и нечетных чисел в массиве
Помогите решить задачу(в Паскале)
Дан массив из 20 элементов. найти количество четных и нечетных чисел в массиве
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы