Написать программу по данной блок-схеме.Марс Алгоритмика

Question

Информатика: Написать программу по данной блок-схеме.Марс Алгоритмика

AlexeyOsipov · Accepted Answer

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

MOGZ ответил