quinta-feira, 27 de janeiro de 2011

encontrar o maior e o menor

{Escreva um programa que leia 50 valores e encontre o maior e o menor
deles. Mostre o resultado.}

Program Exercicio_3;
Uses CRT;
Var
Cont, Valor, Maior, Menor: Integer;
Begin
Cont := 1;
Clrscr;
While Cont <= 50 Do
Begin
Writeln('Digite o ','Valor ', Cont);
Read(Valor);
If Cont = 1 Then
Begin
Maior := Valor;
Menor := Valor;
End;
If Valor > Maior Then
Maior := Valor;
If Valor <>
Menor := Valor;
Cont := Cont + 1;
End;
Writeln('O Maior Valor ‚: ', Maior);
Writeln('O Menor Valor ‚: ', Menor);
Readkey;
End.

2 comentários:

  1. Program Maiormenor ;
    var
    id,maior,menor,cont:integer;
    Begin
    for cont:=1 to 5 do begin
    writeln ('Informe a idade');
    readln(id);
    if cont=1 then begin
    id:=maior;
    id:=menor;
    end;
    if id>maior then
    maior:=id;
    if id<menor then
    end;
    writeln('Maior:',maior);
    writeln('Menor:',menor);

    End.
    O meu tá igual o seu só que não está calculando o menor

    ResponderExcluir
  2. Você inverteu alguns pontos
    Corrigido

    Program Maiormenor ;
    var
    idade,maior,menor,cont:integer;
    Begin
    for cont:=1 to 5 do
    begin
    writeln ('Informe a idade');
    readln(idade);

    if cont=1 then
    begin
    maior:=idade;
    menor:=idade;
    end;
    if idade > maior then
    begin

    maior:=idade;
    end;
    if idade < menor then
    begin
    menor:=idade;
    end;
    end;

    writeln('Maior:',maior);
    writeln('Menor:',menor);

    End.

    ResponderExcluir