Dze je subor www.TrSek.com/beginner/danciwo/pole3.pas{ 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.