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.

escreve os números de 1 a 9 com repeat - until

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

Achar o maior e o menor valor inserido pelo usuario

Números primos (usando arrays)

cadastro de multiplos clientes com registro

Nenhum coment�rio foi encontrado.