Заполнить массив из 10 элементов случайными целыми числами в интервале [0..100] и определить в нем количество четных элементов паскаль abc, так, если что, на всякий случай) , чтоб было еще с

292

364

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

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

deminav733

Информатика

4,6(2 оценок)

Const n = 10; var x: array[1..n] of integer; i, k: integer; begin randomize; { иниациализация датчика случайных чисел } write('элементы массива: '); k : = 0; { обнулили счетчик } for i : = 1 to n do { цикл для перебора всех элементов } begin x[i] : = random(101); { очередное случайное число в диапазоне [0; 100] } if (x[i] mod 2) = 0 then k : = k + 1; { если четное, +1 в счетчик} write(x[i]: 5) end; writeln; writeln('количество четных чисел в массиве равно ', k) end. тестовое решение: элементы массива: 70 19 4 83 79 30 92 97 33 71 количество четных чисел в массиве равно 4