dizi içindeki en küçük eleman ve yerini bulma

[forumsad]

siraKimde:Array[1..10]of integer;

şeklinde bir dizim var

(6,7,9,8,2,3,4,5,7,8) şeklinde değerler almış olsun

snc:=MinIntValue(siraKimde);

bu kod ile dizi içindeki en küçük sayıyı buluyorum ama bana kaçıncı eleman olduğuda lazım

bu dizinin 5'inci elemanı en küçüktür şeklinde

bu mümkünmü acaba

teşekkürler

[destiny24]

bir döngü de bu iki isteğini de karşılayabilirsin.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  EnKucukSayi, SayininSirasi, i: Integer;
  siraKimde: Array[1..10] of integer;
begin
  for i := 1 to Length(siraKimde) do // Diziyi Rastgele Elemanlarla Dolduruyoruz
    siraKimde[i] := RandomRange(0, 100);

  EnKucukSayi   := 101; // Listedeki en Büyük Değerden Büyük Bir Değer Veriyorum Ki Kuralıma Uygun Olsun. Dizinin ilk elemanını da alabilirsin.
  SayininSirasi := 0;
  for i := 1 to Length(siraKimde) do
  begin
    if siraKimde[i] < EnKucukSayi then
    begin
      EnKucukSayi := siraKimde[i];
      SayininSirasi := i;
    end;
  end;
  Randomize;
  ShowMessage('En Küçük Sayı: ' + IntToStr(EnKucukSayi) + #13#10 +
              'Sayının Dizideki Sırası: ' + IntToStr(SayininSirasi));

end;

[forumsad]

çok teşekkürler hocam bir sorunla daha karşılaştım..

eğer dizideki tüm elemanlar eşitse nasıl anlarız?
eşit derken herhangi bir sayı olabilir..

saygılarımla

[SimaWB]

Belki bunlar işinize yarayabilir: Math.pas unitinizi projenize eklerseniz;
MinIntValue fonksiyonu dizi içindeki en küçük elemanı,
MaxIntValue fonksiyonu dizi içindeki en büyük elemanı,
SumInt fonksiyonu elemanların toplamını
verir.

Dizideki tüm elemanlar eşitse
SumInt(Dizi) = Dizi[1] * Length(Dizi)
olması gerekir.