{ POLE3.PAS                                   Copyright (c) Danciwo }
{ Na vstupe je postupnost 20 celych cisel ulozenych v poli A(N).    }
{ Napiste program pre vyhladanie minima a maxima a ich indexov      }
{ v tomto poli.                                                     }
{                                                                   }
{ Author: Danciwo                                                   }
{ Date  : 15.02.2008                           http://www.trsek.com }

program pole3;
uses crt;
var A: array [1..20] of integer;
    i, max, min: integer;
    poz_max: integer;
    poz_min: integer;

begin
 randomize;
 for i:=1 to 20 do begin
    A[i]:=random(250);
   end;

 min:=250;
 for i:=1 to 20 do begin
    if A[i]<min then begin
		min:=A[i];
		poz_min:=i;
		end;
    end;

 max:=0;
 for i:=1 to 20 do begin
    if max<A[i] then  begin
		max:=A[i];
                poz_max:=i;
    end;
 end;

 writeln('minimalna hodnota je: ',min, 'pozícia: ',poz_min);
 writeln('maximalna hodnota je: ',max, 'pozícia: ',poz_max);
 readln;
end.