Составте программу,которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество элементов с нечетными значениями

263

300

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

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

xmistick

Информатика

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

//pascal var b: array[1..8] of integer; i, z: integer; begin randomize; for i : = 1 to 8 do begin b[i] : = random(9)+1; write(b[i],' '); if b[i] mod 2 < > 0 then z : = z + 1; end; writeln; writeln('количество нечетных = ', z); readln; end.

elyakomarova0

Информатика

4,4(45 оценок)

1)3 7 11 15 19 23(х+4) 2)4 6 8 10 12 14 16(х+2) 3)1 5 9 13 17 23(х+4) 4)24 16 12 8 4(х-4) 5)35 30 25 20 15 10(х-4) 6)33 30 27 24 21 18(х-3) где х - предыдущее число.