uses crt;var i : integer;var vetor: array[0..29] of integer;var contagem: integer;Begin for i:= 0 to 29 do Begin write (‘Informe os valores:’); read (vetor(i)); End contagem := 0; for i:= 0 to 29 doBegin if ((vetor [i] mod (2) == 0) do contagem := contagem + 1;End
0
0
Faça como milhares de estudantes: teste grátis o Passei Direto
Compartilhar