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.

Tocador de vídeo no Lazarus (Delphi 7 para Linux).

soma da diagonal principal de uma matriz

Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)

Calculo do Fatorial Utilizando-se de for

dizer se o aluno passou ou nao

Nenhum coment�rio foi encontrado.