Нужно перевести на си 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.
программа программирования; использует crt; const n = 10; var a: array[1..n] of integer; i: integer; count: integer; начало 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; конец.
программа программирования; использует crt; const n = 10; var a: array[1..n] of integer; i: integer; count: integer; начало 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; конец.