etanois666
-
Posts
4 -
Cadastrado em
-
Última visita
-
Números repetidos em um vetor
etanois666 respondeu ao tópico de gabriellberaldi em Programação - outros
uses System.SysUtils; var name : string; A: array [1..10] of integer; qntd: integer; i : integer; begin qntd := 0; for i:=1 to 10 do begin writeln ('Digite o valor da posição ',i,' do vetor'); readln (A[i]); end; for i:=1 to 10 do begin if (A[i]=5) or (A[i]=18) then begin qntd:=qntd+1; end; end; writeln('total -> ', IntToStr(qntd)); readln; end.
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
