Algorítimo para mostrar o maior e o menor valor de 5 números digitados, que depois você pode alterá-los para quantos quiser.

• Download maior menor.pas
• Enviar nova versão

Esconder código-fonte

Program maior_menor ;
var
   valores: array [1..5] of integer;
   maior,menor,i:integer;
Begin
   for i:= 1 to 5 do begin
      write ('digite um valor inteiro: ');
      readln (valores[i]);
   end;
   maior:=valores[1];
   menor:=valores[1];
   for i:= 1 to 5 do begin
      if valores[i]>maior then begin
         maior:=valores[i];
      end;
      if valores[i]<menor then begin
         menor:=valores[i];
      end;
   end;
   writeln ('o maior valor e ', maior, ', e o menor valor e ', menor);
End.

Achar o maior e o menor valor inserido pelo usuario

controle de notas de uma clase com vetor e registro

Sequência de Fibonacci

Calculadora de décimo terceiro no Lazarus

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

Nenhum comentário foi encontrado.