encontrar o menor valor em um vetor
script em pascal com objetivo de apenas receber os dados para preencher um vetor e após isso localizar o meno numero informado e dizer em que posição foi informado.
Descrição
script em pascal com objetivo de apenas receber os dados para preencher um vetor e após isso localizar o meno numero informado e dizer em que posição foi informado.
Program exercicio04;
uses crt;
Var
posicao : array[1..15] of integer;
numero, contador : integer;
Begin
clrscr;
For contador := 1 To 15 do
begin
write('Digite o ',contador:2,'§ n£mero: ');
readln (posicao[contador]);
end;
numero:= posicao[1];
For contador := 2 to 15 do
begin
if numero > posicao[contador] then
numero:= posicao[contador];
end;
writeln;
writeln('O menor n£mero ‚: ', numero);
writeln;
For contador := 1 to 15 do
begin
if numero=posicao[contador] then
writeln('Na posi‡Æo: ',contador:2);
end;
Readkey;
end.