Заполнить массив случайными числами в промежутке [20,100] и подсчитать раздельно число

алг  

нач  

цел 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  

кон