Resposta Exercício Pascal

Programa que recebe 10 números e testa qual é o maior:

Program testanumeros ;

var n1,n2,n3,n4,n5,n6,n7,n8,n9,n10: integer;

Begin

writeln ('Digite o número 1: '); read (n1);

writeln ('Digite o número 2: '); read (n2);

writeln ('Digite o número 3: '); read (n3);

writeln ('Digite o número 4: '); read (n4);

writeln ('Digite o número 5: '); read (n5);

writeln ('Digite o número 6: '); read (n6);

writeln ('Digite o número 7: '); read (n7);

writeln ('Digite o número 8: '); read (n8);

writeln ('Digite o número 9: '); read (n9);

writeln ('Digite o número 10: '); read (n10);

if ((n1>n2) and (n1>n3) and (n1>n4) and (n1>n5) and (n1>n6) and (n1>n7) and (n1>n8) and (n1>n9) and (n1>n10)) then

writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles é ',n1)

else

if ((n2>n1) and (n2>n3) and (n2>n4) and (n2>n5) and (n2>n6) and (n2>n7) and (n2>n8) and (n2>n9) and (n2>n10)) then

writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles é ',n2)

else

if ((n3>n1) and (n3>n2) and (n3>n4) and (n3>n5) and (n3>n6) and (n3>n7) and (n3>n8) and (n3>n9) and (n3>n10)) then

writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles é ',n3)

else

if ((n4>n1) and (n4>n2) and (n4>n3) and (n4>n5) and (n4>n6) and (n4>n7) and (n4>n8) and (n4>n9) and (n4>n10)) then

writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles é ',n4)

else

if ((n5>n1) and (n5>n3) and (n5>n4) and (n5>n2) and (n5>n6) and (n5>n7) and (n5>n8) and (n5>n9) and (n5>n10)) then

writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles é ',n5)

else

if ((n6>n1) and (n6>n3) and (n6>n4) and (n6>n5) and (n6>n2) and (n6>n7) and (n6>n8) and (n6>n9) and (n6>n10)) then

writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles é ',n6)

else

if ((n7>n1) and (n7>n3) and (n7>n4) and (n7>n5) and (n7>n6) and (n7>n2) and (n7>n8) and (n7>n9) and (n7>n10)) then

writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles é ',n7)

else

if ((n8>n1) and (n8>n3) and (n8>n4) and (n8>n5) and (n8>n6) and (n8>n7) and (n8>n2) and (n8>n9) and (n8>n10)) then

writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles é ',n8)

else

if ((n9>n1) and (n9>n3) and (n9>n4) and (n9>n5) and (n9>n6) and (n9>n7) and (n9>n8) and (n9>n2) and (n9>n10)) then

writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles é ',n9)

else

if ((n10>n1) and (n10>n3) and (n10>n4) and (n10>n5) and (n10>n6) and (n10>n7) and (n10>n8) and (n10>n9) and (n10>n2)) then

writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles é ',n10);

End.