Ответ:
алг
нач
цел 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
кон