Дана последовательность из n случайных чисел в интервале [-50; 50] . определить количество нечетных чисел имеющих четный порядковый номер. напишите программу через паскаль.

261

383

Посмотреть ответы 2

Ответы на вопрос:

Пользовательудален

Информатика

4,8(82 оценок)

Const n=10; var a: array[1..n] of integer; k,i: integer; begin randomize; for i: =1 to n do begin a[i]: =random(101)-50; write(a[i],' '); end; writeln; k: =0; for i: =1 to n do if (a[i] mod 2< > 0)and(i mod 2=0) then k: =k+1; writeln('k = ',k); end. пример: -28 -27 -46 -20 -6 -15 44 -41 2 -50k = 3