encontrar o menor valor em um vetor
Publicado por NewLinuxer 12/12/2005
[ Hits: 7.050 ]
script em pascal com objetivo de apenas receber os dados para preencher um vetor e após isso localizar o meno numero informado e dizer em que posição foi informado.
Program exercicio04; uses crt; Var posicao : array[1..15] of integer; numero, contador : integer; Begin clrscr; For contador := 1 To 15 do begin write('Digite o ',contador:2,'§ n£mero: '); readln (posicao[contador]); end; numero:= posicao[1]; For contador := 2 to 15 do begin if numero > posicao[contador] then numero:= posicao[contador]; end; writeln; writeln('O menor n£mero : ', numero); writeln; For contador := 1 to 15 do begin if numero=posicao[contador] then writeln('Na posiÆo: ',contador:2); end; Readkey; end.
Nenhum comentário foi encontrado.
Instalação do Gentoo GNU/Linux em um SSD NVMe (UEFI/GPT)
Adicionar mensagens iniciais no terminal nas sessões de sudo
Desenhar com o mouse na tela do desktop
Gerencie suas contas financeiras pessoais com Terminal Finances
Usando "sscanf" para Dividir String com Delimitadores em C
Processo aleatório consumindo CPU por meio do usuário Postgres
Instalação do driver da impressora HP Laser (1)
Usar notify-send pelo Root enviando para todos usuarios do sistema da ... (7)
Não consigo instalar uma webcam e microfone no Linux MInt XFCE 19.3 (0)