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.

media/record

soma de números pares

Jogo Sudoku em Pascal

Programa que realiza o reajuste salarial de acordo com o cargo

Gerador de Senha no Lazarus

Nenhum comentário foi encontrado.