mais um modelo de programa com vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 6.805 ]
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.
Calculadora de décimo terceiro salário em Pascal
Nenhum comentário foi encontrado.
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Desktop Linux ganha novos apps enquanto IA invade o noticiário
Blender 5.0 Beta, Firefox 144 e avanço da IA dominam o dia no mundo Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Adicionando o repositório backports no Debian 13 Trixie
Problema em SSD ao dar boot LinuxMint LMDE FAYE 64 (0)
Baixar jogos Independentes para Ubuntu [RESOLVIDO] (4)
PIP3 - erro ao instalar módulo do mariadb para o Python (1)
Linux x Plataformas de Trading - um problema (in-)solúvel? (4)