Паскаль
Напишите программу, которая выводит на экран массив В в одну строку и определяет количество четных и количество нечетных элементов.

Предыдущий
вопрос Следующий
вопрос

program OddEvenElements;

var
A: array[1..10] of integer;
i, evenCount, oddCount: integer;

begin
evenCount := 0;
oddCount := 0;

// заполняем массив и выводим его на экран
for i := 1 to 10 do
begin
A[i] := Random(100); // заполняем случайными числами
write(A[i], ' ');

end;

writeln;
writeln('Количество четных элементов: ', evenCount);
writeln('Количество нечетных элементов: ', oddCount);
end.