Определить, что больше, сумма чётных или нечётных чисел. Паскаль. Напишите программу нахождения.

Question

Информатика

Галата

17 января, 05:24

Определить, что больше, сумма чётных или нечётных чисел. Паскаль. Напишите программу нахождения.

+4

Ответы (1)

Знаете ответ на вопрос?

Феодотия · Answer 1

Пусть есть массив чисел "а", а его размер = n; chet - количество четных чисел, а nechet - количество нечетных

for i : = 1 to n do

if (a[i] mod 2=0) then chet:=chet + 1

else nechet : = nechet + 1;

if (chet>nechet) then writeln ("chet")

else writeln ("nechet") ;