mais um modelo de programa com vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 6.518 ]
mais um dos exemplos para demonstrar o funcionamento de vetores no pascal.
Neste é Solicitado ao usuario 6 valores, os quais devem ser armazenados num único vetor, apresente o maior valor e a posição em que o mesmo foi informado
{Solicitando ao usuario 6 valores, os quais devem ser armazenados num £nico ve- tor, apresente o maior valor e a posiÆo em que o mesmo foi informado.} Program exercicio03; uses crt; Var posicao : array[1..6] of integer; numero, contador : integer; Begin clrscr; For contador := 1 To 6 do begin write('Digite o ',contador:2,'§ n£mero: '); readln (posicao[contador]); end; numero:= posicao[1]; For contador := 2 to 6 do begin if numero < posicao[contador] then numero:= posicao[contador]; end; writeln; writeln('O maior número é: ', numero); writeln; For contador := 1 to 6 do begin if numero = posicao[contador] then writeln('Na posiÆo: ',contador:2); end; Readkey; end.
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Ativando o Modo Noturno via Linha de Comando no GNOME/Wayland
Preparando pendrive com GNU/Linux [Corretamente!]
Instalando Google Chrome no Fedora 40
Habilitando a importação de senhas no Firefox
Como corrigir o erro do VirtualBox travar a máquina virtual em tela cheia
Como faço pra um script ser executado apenas abrindo um terminal e dan... (7)
Problema ao configurar Zabbix no ubuntu (9)
Iso win10 arm para galaxy book go NP34OXLA-K06BR (1)