Segítség kéne a Pascal programozási nyelveben?

WriteLn(i);

Amúgy a cikluson belül vagy, vagyis nem értél végig a tömbön, nem tudod még a valódi legkisebbet, tehát értelmetlen kiírni.

Vagy ha a struktúrákat még nem ismered, akkor két n elemű tömböt kell létrehoznod: egyet amiben az értékeket tárolod, egyet pedig feltöltesz 1-től n-ig az egész számokkal.

Az első tömböt rendezed, de közben a másodikat is ugyanúgy módosítod, így folyamatosan megőrzi az adott pozícióba mozgatott értékeknek az eredeti sorszámát.

Már nagyon belebonyolódtatok :)

program masodik;

const max = 100;

var i, n : integer;

min, min1 : byte;

tomb : array[1..max] of byte;

begin

Randomize;

for i := 1 to max do tomb[i] := Random(255) + 1 ; //Feltoltjuk a tombot

for i := 1 to max do Write(tomb[i]:5); //Kiirjuk

min := tomb[1];

for i := 1 to max do if tomb[i] < min then min := tomb[i]; //Megkeressuk a legkissebbet

min1 := tomb[1];

for i := 1 to max do //Megkeressuk azt a legkissebbet ami min-tol nagyobb

if (tomb[i] < min1) and (tomb[i] > min) then

begin

min1 := tomb[i];

n:=i; //Megjegyezzuk a sorszamat

end;

WriteLn;

WriteLn('A masodik legkisebb szam : ',min1, '. Sorszama a tombben : ', n);

end.