Desenvolva um algoritmo que leia um conjunto de valores inteiros e positivos e
indique qual o menor e o maior valor do conjunto. Considere que o valor -1
encerre a leitura dos valores e não deve ser considerado.
Soluções para a tarefa
Respondido por
2
Você não especificou a linguagem, então tomei liberdade em fazer na mais didática.(Pascal)
Em anexo está o arquivo edentado.
Qualquer dúvida estou a disposição! :D
program MenorEMaiorValor;
{$APPTYPE CONSOLE}
uses SysUtils;
var iValorDigitado, iMaiorValor, iMenorValor : Integer;begin iMaiorValor := 0; iMenorValor := MaxInt; write('Informe um valor: '); readln(iValorDigitado); if iValorDigitado = -1 then exit; repeat if (iValorDigitado > iMaiorValor) then iMaiorValor := iValorDigitado;
if (iValorDigitado < iMenorValor) then iMenorValor := iValorDigitado;
write('Informe um valor: '); readln(iValorDigitado); until iValorDigitado = -1; writeln('Maior valor digitado:' + IntToStr(iMaiorValor)); writeln('Menor valor digitado:' + IntToStr(iMenorValor)); readln;end.
Em anexo está o arquivo edentado.
Qualquer dúvida estou a disposição! :D
program MenorEMaiorValor;
{$APPTYPE CONSOLE}
uses SysUtils;
var iValorDigitado, iMaiorValor, iMenorValor : Integer;begin iMaiorValor := 0; iMenorValor := MaxInt; write('Informe um valor: '); readln(iValorDigitado); if iValorDigitado = -1 then exit; repeat if (iValorDigitado > iMaiorValor) then iMaiorValor := iValorDigitado;
if (iValorDigitado < iMenorValor) then iMenorValor := iValorDigitado;
write('Informe um valor: '); readln(iValorDigitado); until iValorDigitado = -1; writeln('Maior valor digitado:' + IntToStr(iMaiorValor)); writeln('Menor valor digitado:' + IntToStr(iMenorValor)); readln;end.
Anexos:
Perguntas interessantes
Português,
11 meses atrás
Inglês,
11 meses atrás
Matemática,
1 ano atrás
História,
1 ano atrás
Inglês,
1 ano atrás
Matemática,
1 ano atrás