ExercProgram Pzim ;
{Elabore um algoritmo que leia um vetor A de 30 números inteiros e imprima o maior valor.
as variaveis criadas são :
a, que é o vetor
i, que é o contador do for
indice, que serve para indicar a posição do maior numero no vetor
maior, que recebe o valor do maior numero do vetor}
var
a:array[1..5] of integer;
i, indice, maior:integer;
{no exercicio pede 30 valores, mais por questão de agilidade fizemos com 5}
Begin
{inicio do programa}
for i:=1 to 5 do
begin
writeln('Digite o ',i,'o. termo do vetor');
readln(a[i]);
end;
{o primeiro for é utilizado para entrado dos valores no vetor a, nas posições [i] de 1 até 5}
for i:=1 to 1 do
begin
if (i=1) then
begin
maior:=a[1];
end;
end;
{o segundo for é utilizado, somente para atribuir o valor na posição [i]=1, no maior valor,
para termos uma referencia, serve tanto para atribuir o valor de maior e se preciso o valor de menor}
for i:=1 to 5 do
begin
if(a[i]>maior) then
begin
maior:=a[i];
indice:=i;
end;
end;
{o terceiro for é utilizado junto com o if, para comparamos, todos os valores do vetor a, [i] de 1 a 5
com o valor de maior, no for anterior, atribuimos a ele o valor da posição 1, e aqui testamos todas as posições
de [i] de 1 ate 5, para ver se algum é maior que MAIOR, se houver ele substitui o valor de a[i] em MAIOR, e
atribui a variavel INDICE o valor de [i] 'posição' que está o maior valor no vetor}
writeln('O maior numero é o ',indice,'o., de valor : ', maior);
{para finalizar escreve-se o resultado do maior numero e em que posição [i], do vetor ele se encontra}
End.
