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

247

346

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

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

Exzify

Информатика

4,5(13 оценок)

Program ex; var i, h, k: integer; a: array[1..8] of integer; begin h : = 0; k : = 0; for i : = 1 to 8 do begin a[i] : = random(1, 10); if i mod 2 = 0 then k : = k + 1 else h : = h + a[i] end; writeln('колл-во четных элементов : ', k); write('сумма нечетных элементов массива: ', h)end.