необходимо перевести на сиprogram prog; uses     crt; const  

Необходимо перевести на си
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.