Добавил:
Hist
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Паскаль (I семестр) / K01-172 / 04 / m1
.pas program m_1;
const
n=5;
rtop=20;
rbottom=-10;
type
mas=array[1..N] of integer;
procedure fill(var m:mas;l:integer);
var
i:integer;
begin
randomize;
for i:=1 to l do
m[i]:=rtop-random(rtop-rbottom);
end;
procedure output(m:mas;l:integer);
var
i:integer;
begin
for i:=1 to l do
write(m[i],' ');
writeln;
end;
function find(m:mas;max:boolean;l:integer):integer;
var
found:integer;
i:integer;
begin
found:=1;
for i:=2 to l do
if ((m[found]>m[i]) and max) or ((m[found]<m[i]) and not max) then
found:=i;
find:=found;
end;
procedure findminmax(m:mas;var min,max:integer;l:integer);
begin
min:=find(m,false,l);
max:=find(m,true,l);
end;
procedure replace(var a,b:integer);
var
t:integer;
begin
t:=a;
a:=b;
b:=t;
end;
var
myarr:mas;
min,max:integer;
begin
fill(myarr,N);{§ Ї®«ҐЁҐ ¬ ббЁў б«гз ©л¬Ё зЁб« ¬Ё}
writeln('€бе®¤л© ¬ ббЁў:');{ўлў®¤ Ёб室®Ј® ¬ ббЁў }
output(myarr,N);
findminmax(myarr,min,max,N);{Ї®ЁбЄ ¬ЁЁ¬г¬ Ё ¬ ЄбЁ¬г¬ }
replace(myarr[min],myarr[max]);{§ ¬Ґ ¬Ґбв ¬Ё ¬ЁЁ¬г¬ Ё ¬ ЄбЁ¬г¬ }
writeln('Џ®«гзҐл© ¬ ббЁў:');{ўлў®¤ Ї®«г祮Ј® ¬ ббЁў }
output(myarr,N);
readln;
end.
const
n=5;
rtop=20;
rbottom=-10;
type
mas=array[1..N] of integer;
procedure fill(var m:mas;l:integer);
var
i:integer;
begin
randomize;
for i:=1 to l do
m[i]:=rtop-random(rtop-rbottom);
end;
procedure output(m:mas;l:integer);
var
i:integer;
begin
for i:=1 to l do
write(m[i],' ');
writeln;
end;
function find(m:mas;max:boolean;l:integer):integer;
var
found:integer;
i:integer;
begin
found:=1;
for i:=2 to l do
if ((m[found]>m[i]) and max) or ((m[found]<m[i]) and not max) then
found:=i;
find:=found;
end;
procedure findminmax(m:mas;var min,max:integer;l:integer);
begin
min:=find(m,false,l);
max:=find(m,true,l);
end;
procedure replace(var a,b:integer);
var
t:integer;
begin
t:=a;
a:=b;
b:=t;
end;
var
myarr:mas;
min,max:integer;
begin
fill(myarr,N);{§ Ї®«ҐЁҐ ¬ ббЁў б«гз ©л¬Ё зЁб« ¬Ё}
writeln('€бе®¤л© ¬ ббЁў:');{ўлў®¤ Ёб室®Ј® ¬ ббЁў }
output(myarr,N);
findminmax(myarr,min,max,N);{Ї®ЁбЄ ¬ЁЁ¬г¬ Ё ¬ ЄбЁ¬г¬ }
replace(myarr[min],myarr[max]);{§ ¬Ґ ¬Ґбв ¬Ё ¬ЁЁ¬г¬ Ё ¬ ЄбЁ¬г¬ }
writeln('Џ®«гзҐл© ¬ ббЁў:');{ўлў®¤ Ї®«г祮Ј® ¬ ббЁў }
output(myarr,N);
readln;
end.