Exercicio 05

5 - Excreva um algoritimo que leia um vetor de 80 elementos inteiros. encontre e mostre o menos elemento e sua posição no vetor.

Program_posição_no_vetor ;
var
num:array[1..5]of integer;
cont, cont2, menor:integer;
menorNum:array[1..5]of integer;


Begin
cont:=0;
menor:=1000;

for cont:=1 to 5 do
begin
writeln('Informe um número:',cont);
readln(num[cont]);

if num[cont]
begin
cont2:=cont2+1;
menor:=num[cont];
menorNum[cont2]:=menor;
end;

end;

writeln('O menor número é: ', menor,' e sua posiçao no vetor é: ',cont2);


End.