Нужно перевести на си 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.