Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:066536 / 341
.txt 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.
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.
Соседние файлы в папке 066536