Заполнить массив случайными числами в интервале [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  

кон

они могли обозначать союзы, знаки препинания, слова в один слог.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.