Нужно перевести на си 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.
Нужно перевести на си 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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
программа программирования; использует 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; конец.