Učitati niz X od n članova i naći tri najmanja člana niza.
Ja naravno znam naći najmanji član niza (kao i najveći član niza), ali za ispis tri najmanja člana nemam ideju, sve sam probao.... Molim za pomoć. Hvala.
Primer za namnaji član niza:
program Najmanji_Clan;
var
i,n,min:integer;
x:array [1..100] of integer;
begin
writeln('Unesi broj n clanova niza ');
read(n);
for i:= 1 to n do
begin
write('X[',i,']=');
readln(x[i]);
end;
min := x[i];
for i:= 1 to n do
if x[i] < min then
min := x[i];
WRITELN('NAJMANJI CLAN NIZA JE ',min);
end.