Помогите решить задачу (в Паскале)

Дан массив из 20 элементов. найти количество четных и нечетных чисел в массиве

Question

Информатика

Елизар

13 июня, 11:37

Помогите решить задачу (в Паскале)

Дан массив из 20 элементов. найти количество четных и нечетных чисел в массиве

+3

Ответы (1)

Знаете ответ?

Михаилушка · 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.

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

Помогите решить задачу (в Паскале)

Дан массив из 20 элементов. найти количество четных и нечетных чисел в массиве