Maior número em um vetor

[Visitante: slutty]

preciso de ajuda em um exercício proposto por meu professor : faça um programa em pascal que leia 5 números e mostre qual número é o maior.

[airtonbjunior]

Qual a sua dúvida? Poste o que você já tentou para que possamos ajudar.

Abraços.

[Greengineer]

preciso de ajuda em um exercício proposto por meu professor : faça um programa em pascal que leia 5 números e mostre qual número é o maior.

slutty, para poder ajudá-lo responda as perguntas abaixo:

Você está tendo aula de que disciplina com seu professor? (Pascal, programação básica, algoritmos, fundamentos da computação...)

Você está tendo esta disciplina em um curso técnico ou superior? Se for ensino superior especifique qual. (Informática, Ciência da Computação, Engenharia Civil...).

De toda a forma, irei lhe dar a resposta em raciocínio lógico e ficará a seu critério traduzi-lo para Pascal ou não:

[COLOR="Blue"][B]Programa Maior dos 5[/B][/COLOR]
[COLOR="DimGray"]!Declaração de variáveis[/COLOR]

[B]vetor[/B]([COLOR="red"]5[/COLOR]) como real/inteiro [COLOR="DimGray"]!você não especificou se os números são reais ou inteiros.[/COLOR]
[B]maior[/B] como real/inteiro [COLOR="DimGray"]!esta variável deverá ser do mesmo tipo que a vetor.[/COLOR]
[B]n[/B] como inteiro

[B]n[/B]=[COLOR="Red"]1[/COLOR]

faça enquanto [B]n[/B]<=[COLOR="Red"]5[/COLOR]
   escrever="Informe o " & n & "º número do vetor" [COLOR="DimGray"]!aqui você vai colocar o comando de mensagem do pascal para solicitar o número ao usuário do seu programa[/COLOR]
   leia=[B]vetor[/B]([B]n[/B])
   [B]n[/B]=[B]n[/B]+[COLOR="red"]1[/COLOR]
fim faça enquanto

[B]n[/B]=[COLOR="Red"]1[/COLOR]
[B]maior[/B]=[COLOR="Red"]0[/COLOR]

faça enquanto [B]n[/B]<=[COLOR="Red"]5[/COLOR]
   se [B]vetor[/B]([B]n[/B])>[B]maior[/B] então
      [B]maior[/B]=[B]vetor[/B]([B]n[/B])
   fim se
   [B]n[/B]=[B]n[/B]+[COLOR="red"]1[/COLOR]
fim faça enquanto
fim

Boa sorte

[Visitante: slutty]

Ai pessoal valeu a ajuda, estou fazendo técnico em informatica (básico), a disciplina é algoritmos (pascal). Em relação ao programa que pedi ajuda já consegui resolver.

Program Pzim ;
var atom: array[1..5] of integer;
       maior,i:integer;
Begin
    for i:=1 to 5 do
       begin
          readln(atom[i]);
       end;

	for i:= 1 to 5 do 
	     begin
	        maior:=atom [1];  
	          if(atom[i]>maior)then
	          maior:=atom[i] ;
	     end;

     writeln('esse e maior:',maior);

End.

[LNW]

Olá Slut,

Ai pessoal valeu a ajuda, estou fazendo técnico em informatica (básico), a disciplina é algoritmos (pascal). Em relação ao programa que pedi ajuda já consegui resolver.

Program Pzim ;
var atom: array[1..5] of integer;
       maior,i:integer;
Begin
    for i:=1 to 5 do
       begin
          readln(atom[i]);
       end;

	for i:= 1 to 5 do 
	     begin
	        maior:=atom [1];  
	          if(atom[i]>maior)then
	          maior:=atom[i] ;
	     end;

     writeln('esse e maior:',maior);

End.

Teste com a seguinte sequência de valores:

0

1

2

10

8

Dica: você não pode ficar atualizando a variável maior com a primeira posição do vetor o tempo todo. Como a correção é bem simples, vou deixar você resolver essa parada...

LNW