Заполнить массив из 10 элементов случайными целыми числами в интервале [0..100] и определить в нем количество четных элементов паскаль ABC, так, если что, на всякий случай) пожалуйста помогите, чтоб было еще с объяснением...
Заполнить массив из 10 элементов случайными целыми числами в интервале [0..100] и определить в нем количество четных элементов
паскаль ABC, так, если что, на всякий случай)
пожалуйста помогите, чтоб было еще с объяснением...
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы