алг

нач

цел count, i, count1

целтаб A[1:10]

нц для i от 1 до 10

A[i]:=irand (20, 100)

вывод A[i], " "

кц

вывод " ", нс

count:=0

count1:=0

нц для i от 1 до 10

если mod (A[i], 2)=0

то count:=count+1

иначе count1:=count1+1

все

кц

вывод "четных ", count, нс, "нечетных ", count1

кон