Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
59
Добавлен:
10.05.2014
Размер:
1.22 Кб
Скачать
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.
Соседние файлы в папке 04