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.

somatório de uma matriz 7x5

Calculadora de décimo terceiro salário em Pascal

Tocador de Vídeo (Lazarus)

Calculadora de décimo terceiro no Lazarus

cadastro de um cliente com registro

Nenhum comentário foi encontrado.