Antonio Barco

@devair1010 Eu utilizei essa função, mas está dando erro semantico, tipo invalido na condição de igualdade.

Olá, estou dúvida em relação ao meu programa que está contando os números pares negativos, o que posso fazer para solucionar esse problema? progam exercicio; var N, CONJUNTO, CONTADOR, CONTPAR : integer; VET :array [1..100] of integer; Begin writeln ('Forneça a quantidade de elementos do conjuto = '); readln (N); for CONJUNTO:= 1 to N do begin while (VET[CONJUNTO] <= 0)do begin writeln ('Digite um número = '); readln (VET[CONJUNTO]); if (VET[CONJUNTO] > 5) then CONTADOR:= CONTADOR + 1 ; if (VET[CONJUNTO] mod 2 = 0) then CONTPAR := CONTPAR + 1; end; end; writeln (CONTADOR, ' elementos são maiores do que 5'); writeln (CONTPAR, ' elementos são pares'); End.