domingo, 30 de janeiro de 2011

Elementos de um vetor

PROGRAM EP1;
USES CRT;
VAR VETOR:ARRAY[1..6] OF INTEGER;
    PAR: ARRAY[1..6] OF INTEGER;
    IMPAR: ARRAY[1..6] OF INTEGER;
    I,J,AUX, QTDP, QTDI: INTEGER;

BEGIN
 CLRSCR;
 FOR I:= 1 TO 6 DO
 BEGIN
   WRITELN ('DIGITE O ',I,' NUMERO DO VETOR');
   READLN (VETOR[I]);
   IF (VETOR[I] MOD 2 = 0) THEN (QTDP):= (QTDP + 1)
    ELSE (QTDI):= (QTDI + 1);
 END;
 WRITELN ('O VETOR POSSUI ',QTDP,' ELEMENTOS PARES QUE SAO:');
 FOR I:= 1 TO 6 DO
 BEGIN
   IF (VETOR[I] MOD 2 = 0) THEN  WRITE (VETOR[I],',');
 END;
 WRITELN;
 WRITELN ('O VETOR POSSUI ',QTDI,' ELEMENTOS IMPARES QUE SAO:');
 FOR I:= 1 TO 6 DO
 BEGIN
   IF (VETOR[I] MOD 2 <> 0) THEN WRITE (VETOR[I],',');
 END;
 READKEY;
END.

Nenhum comentário:

Postar um comentário