Дан целочисленный массив из 2000 элементов. Если сумма всех элементов массива чётная, нужно вывести количество нечётных (по значению) элементов массива, если нечётная – количество чётных. Например, для массива из 6 элементов, равных соответственно 2, 6, 12, 17, 3, 8, ответом будет 2 – количество нечётных элементов, так как общая сумма всех элементов чётна.
k:=0; for i:=1 to N do begin if a[i] mod 2 = 1 then k:=k+1; end; if k mod 2 = 0 then writeln(k) else writeln(N-k);