Tömb feltöltése n darab bekért számmal, és ezek közül a legkisebb elem kiválasztása (Minimum.pas) program Minimum; uses crt; var i,n,min:integer; a:array [1..10] of integer; BEGIN write ('n:='); readln(n); Bekérjük a tömbelemek számát, amely nem lehet nagyobb 10-nél, mivel az a tömb 10 eleműnek lett deklarálva. i:=1; while (i<=n) do begin A ciklus segítségével feltöltjük a tömböt. write ('a[',i,']:='); readln (a[i]); Beolvassuk az a tömb i-edik elemét. i:=i+1; end; min:=a[1]; A fent egész számnak deklarált min változóba beletesszük az a tömb 1. elemének értékét. i:=2; Mivel a tömb 1. indexű elemét már beleraktuk a min nevű változóba, ezért a 2. indexű elemmel kezdjük a következő ciklust. while (i<=n) do begin if(min>a[i]) then begin min:=a[i]; Amennyiben a min változó értékénél kisebb értékű tömbelemet találunk, azt beletesszük a min-be. end; i:=i+1; end; writeln('A legkisebb szam= ',min); END.