Fórum Lógica: Pegar segundo menor valor #283246

procedure TForm1.Button1Click(Sender: TObject);
var
 i,nunMaior,nunMenor:Integer;
begin
 i:=0;
 nunMaior:=0;
 while i<=tamanhodoarray do
   begin
     if A[i] > nunMaior then
       begin
         nunMenor:=nunMaior;
         nunMaior:=A[i]
       end
     else
       if A[i] > nunMenor Then
         nunMenor:= A[i];
     i:=i+1;
   end;
 Showmessage(inttostr(nunmenor));
end;

procedure TForm1.Button1Click(Sender: TObject); 
var 
MeuArray : array[0..5] of integer; 
pri, seg, I : Integer; 
begin 
// preenchi o array aqui só para facilitar a visualização 
MeuArray[0] := 33; 
MeuArray[1] := 79; 
MeuArray[2] := 41; 
MeuArray[3] := 80; 
MeuArray[4] := 55; 
MeuArray[5] := 77; 

pri := MeuArray[0]; 
seg := MeuArray[0]; 
For I := Low(MeuArray) to High(MeuArray) do begin 
if (MeuArray[I] < pri) then begin 
if (pri < seg) then 
seg := pri; 
pri := MeuArray[I]; 
continue; 
end; 

if (MeuArray[I] < seg) and (MeuArray[I] <> pri) then 
seg := MeuArray[I]; 
end; 
showmessage(´O segundo menor número é: ´+inttostr(seg)); 
end; 

procedure TForm1.Button1Click(Sender: TObject);
var
MeuArray : array[0..5] of integer;
seg, menor, maior, I : Integer;
begin
// preenchi o array aqui só para facilitar a visualização
MeuArray[0] := 33;
MeuArray[1] := 79;
MeuArray[2] := 41;
MeuArray[3] := 80;
MeuArray[4] := 55;
MeuArray[5] := 77;

menor := MeuArray[0];
maior := MeuArray[0];

For I := Low(MeuArray) to High(MeuArray) do
  if (MeuArray[I] < menor) then
    menor := MeuArray[I]
  else
    if (MeuArray[I] > maior) then
      maior := MeuArray[I];

seg := maior;

For I := Low(MeuArray) to High(MeuArray) do
  if (MeuArray[I] > menor) and (MeuArray[I] < seg) then
    seg := MeuArray[I];

  showmessage(´O segundo menor número é: ´+inttostr(seg));

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MeuArray : array[0..5] of integer;
  pri, seg, H, I : Integer;
begin
  MeuArray[0] := 33; // 4  75;//
  MeuArray[1] := 33; // 9  9;//
  MeuArray[2] := 33; //-7  63;//
  MeuArray[3] := 33; // 3  57;//
  MeuArray[4] := 33; //-7  54;//
  MeuArray[5] := 33; // 6   6;//

//  listbox1.Clear;
//  for H := low(MeuArray) to High(MeuArray) do
//      listbox1.items.add(format(´¬3.3d´,[MeuArray[h]]));

  pri := MeuArray[0];
  seg := MeuArray[1];
  For I := Low(MeuArray)+2 to High(MeuArray) do begin
    if (MeuArray[I] = seg) or (MeuArray[I] = pri) then
       continue;

    if (MeuArray[I] < pri)  then begin
      if (pri < seg) then
         seg := pri;
      pri := MeuArray[I];
      continue;
    end;

    if (seg = pri) then
       seg := MeuArray[I];

    if (MeuArray[I] < seg)  then
        seg := MeuArray[I];
  end;

  if (pri = seg) then
     showmessage(´Todos os elementos do array são iguais: ´+inttostr(pri))
  else if (pri < seg) then
    showmessage(´O segundo menor número é: ´+inttostr(seg))
  else
    showmessage(´O segundo menor número é: ´+inttostr(pri));
end;

// ensure Length(A) >= 2
function SegundoMenorInteiro(const A: array of Integer): Integer;
var
  I, Min, Sec: Integer;
begin
  Min := A[0];
  Sec := High(Integer);
  for I := 1 to High(A) do
    if A[I] < Sec then
    begin
      if A[I] <= Min then
      begin
        Sec := Min;
        Min := A[I];
      end
      else
        Sec := A[I];
    end;
  Result := Sec;
end;