066536 / 341

program task341;
uses
Crt; {Ї®¤Є«о祭ЁҐ ¬®¤г«п ¤«п а Ў®вл б нЄа ­®¬}
const
n=5; {Є®«ЁзҐбвў® зЁбҐ«}
var
A:array [1..n] of integer; {®¤­®¬Ґа­л© ¬ ббЁў 楫ле зЁбҐ«}
i,j,i_,j_,temp:integer;
ch:char;
begin
ClrScr; {®зЁбвЄ  нЄа ­ }
writeln('‚ўҐ¤ЁвҐ ',n,' 楫ле зЁб«  (зҐаҐ§ Їа®ЎҐ«, ENTER - Є®­Ґж ўў®¤ ): ');
for i:=1 to n do begin {бзЁвлў ­ЁҐ §­ зҐ­Ё© ¬ ббЁў  б нЄа ­ }
read(A[i]);
end;
readln;
writeln('‚лЎҐаЁвҐ max Ё«Ё min §­ зҐ­ЁҐ ¬®¤г«п а §­®бвЁ ¤ўге зЁбҐ« ==>');
writeln('1 - max');
writeln('2 - min');
ch:=readkey; {б®еа ­Ґ­ЁҐ ­ ¦ в®© Є« ўЁиЁ}
i_:=1;
j_:=2;
temp:=abs(A[1]-A[2]);
if ch='1' then begin
for i:=1 to n do
for j:=1 to n do {Ї®ЁбЄ зЁбҐ« б max а §­®бвмо}
if (i<>j) and (abs(A[i]-A[j])>temp) then begin
temp:=abs(A[i]-A[j]);
i_:=i;
j_:=j;
end;
writeln('Њ®¤г«м а §­®бвЁ ¬ ЄбЁ¬ «Ґ­ г зЁбҐ« ',A[i_],' Ё ',A[j_]);
end
else if ch='2' then begin
for i:=1 to n do
for j:=1 to n do {Ї®ЁбЄ зЁбҐ« б min а §­®бвмо}
if (i<>j) and (abs(A[i]-A[j])<temp) then begin
temp:=abs(A[i]-A[j]);
i_:=i;
j_:=j;
end;
writeln('Њ®¤г«м а §­®бвЁ ¬Ё­Ё¬ «Ґ­ г зЁбҐ« ',A[i_],' Ё ',A[j_]);
end;
writeln('„«п ўл室  ­ ¦¬ЁвҐ «оЎго Є« ўЁиг ...');
readkey;
end.