Dze je subor www.TrSek.com/cover/benkovic/maxmin.pas{ MAXMIN.PAS Copyright (c) Jan Benkovic }
{ Napiste progam, ktory vypise na obrazovku N nacitanych celych }
{ cisel tak, ze kazde vypise do jedneho riadku a ku kazdemu cislu, }
{ ktore je lakolnym minimom, pripise znak -. Ak je cislo lokalnym }
{ maximom pripise k nemu znak +. }
{ }
{ Datum:12.04.2002 http://www.trsek.com }
const
N = 255;
var
pole : array[0..N] of byte;
a : byte;
begin
randomize;
for a:= 1 to N do
pole[a]:=random(255);
for a:= 1 to N-1 do
begin
if (a<>1) or (a<>N-1) then
if (pole[a]>pole[a+1]) and (pole[a]>pole[a-1]) then
Writeln(pole[a],' +')
else if (pole[a]<pole[a+1]) and (pole[a]<pole[a-1]) then
Writeln(pole[a],' -')
else
Writeln(pole[a]);
end;