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

221

242

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

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

belovaan80p073pt

Информатика

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

Var a: array[1..8] of integer; i: integer; multiply: integer; count: integer; begin randomize; multiply: =1; count: =0; writeln('====== элементы массива ======'); for i: =1 to 8 do begin a[i]: =random(10) + 1; writeln(a[i]); if a[i] mod 2=0 then count: =count+1; if a[i] mod 2=1 then multiply: =multiply*a[i]; end; writeln('======'); writeln('чётных элементов всего = ',count); writeln('произведение нечётных = ',multiply); end.