Resposta Exercício Pascal
Autor: Sara Mendes Oliveira Lima | Publicado: 2011-06-14T08:15:00-07:00

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&gt;n2) and (n1&gt;n3) and (n1&gt;n4) and (n1&gt;n5) and (n1&gt;n6) and (n1&gt;n7) and (n1&gt;n8) and (n1&gt;n9) and (n1&gt;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&gt;n1) and (n2&gt;n3) and (n2&gt;n4) and (n2&gt;n5) and (n2&gt;n6) and (n2&gt;n7) and (n2&gt;n8) and (n2&gt;n9) and (n2&gt;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&gt;n1) and (n3&gt;n2) and (n3&gt;n4) and (n3&gt;n5) and (n3&gt;n6) and (n3&gt;n7) and (n3&gt;n8) and (n3&gt;n9) and (n3&gt;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&gt;n1) and (n4&gt;n2) and (n4&gt;n3) and (n4&gt;n5) and (n4&gt;n6) and (n4&gt;n7) and (n4&gt;n8) and (n4&gt;n9) and (n4&gt;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&gt;n1) and (n5&gt;n3) and (n5&gt;n4) and (n5&gt;n2) and (n5&gt;n6) and (n5&gt;n7) and (n5&gt;n8) and (n5&gt;n9) and (n5&gt;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&gt;n1) and (n6&gt;n3) and (n6&gt;n4) and (n6&gt;n5) and (n6&gt;n2) and (n6&gt;n7) and (n6&gt;n8) and (n6&gt;n9) and (n6&gt;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&gt;n1) and (n7&gt;n3) and (n7&gt;n4) and (n7&gt;n5) and (n7&gt;n6) and (n7&gt;n2) and (n7&gt;n8) and (n7&gt;n9) and (n7&gt;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&gt;n1) and (n8&gt;n3) and (n8&gt;n4) and (n8&gt;n5) and (n8&gt;n6) and (n8&gt;n7) and (n8&gt;n2) and (n8&gt;n9) and (n8&gt;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&gt;n1) and (n9&gt;n3) and (n9&gt;n4) and (n9&gt;n5) and (n9&gt;n6) and (n9&gt;n7) and (n9&gt;n8) and (n9&gt;n2) and (n9&gt;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&gt;n1) and (n10&gt;n3) and (n10&gt;n4) and (n10&gt;n5) and (n10&gt;n6) and (n10&gt;n7) and (n10&gt;n8) and (n10&gt;n9) and (n10&gt;n2)) then  writeln ('Os numeros digitados foram: ',n1,',',n2,',',n3,',',n4,',',n5,',',n6,',',n7,',',n8,',',n9,',',n10,' e o maior deles é ',n10); End.