нужно перевести на си
program prog;
uses     crt;
const      n = 10;
var    a: array[1..n] of integer;    
i: integer;    
count: integer; b
egin      clrscr;      
randomize;      
count := 0;      
for i := 1 to n do      begin           a[i] := random(n) + 1;          
write(a[i], ' ');          
if ((not odd(i)) and odd(a[i])) then              inc(count);      
end;      
writeln;      
writeln('Count: ', count);      
readkey; end.