Umiestnenie súboru www.TrSek.com/zadania/postcise.pas{ POSTCISE.PAS }
{ Urci poziciu a hodnotu minimalneho prvku v poli cisel. }
{ }
{ Author: Juraj Pupak }
{ Date : 27.10.2006 http://www.trsek.com }
program PostupnostCisel;
uses crt;
var
Pole : array [1..20] of integer;
min_number,temp : integer;
i,a : integer;
begin
clrscr;
min_number := 100;
Randomize;
For i := 1 To 20 Do
begin
Pole[i] := Random (100);
IF Pole[i] < min_number THEN
begin
min_number := Pole[i];
end;
end;
For a := 1 To 20 Do
begin
IF Pole[a] = min_number THEN
writeln('Min. prvok sa nachadza v poli na indexe ',a);
end;
writeln('Minimalny prvok pola je ',min_number);
readln;
end.