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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

Пусть есть массив чисел «а», а его размер = 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»);