Помогите заполнить массив из 10 элементов случайными числами от -5 до 5 и произвести сортировку : 1) Методом прямого выбора

2) Методом прямого обмена

1

Ответы и объяснения

2013-05-26T07:49:08+00:00

const n=5;
var a:array[1..N] of integer;
b:array[1..N] of integer;
m,e,i,min,j,buf,k:integer;
begin
randomize;
e:=-5;
m:=5;
for i:=1 to n do a[i]:=random(M-E+1)+E;

writeln('Sortirovka metodom pryamogo vibora');
for i:=1 to n-1 do begin
min:=i;
for j:=i+1 to n do if a[j]<a[min] then
min:=j;
buf:=a[i];
a[i]:=a[min];
a[min]:=buf;
for k:=1 to n-1 do write(a[k],' ');
writeln(a[N]);
end;

e:=-5;
m:=5;
for i:=1 to n do b[i]:=random(M-E+1)+E;
writeln('Sortirovka metodom pryamogo obmena');
for i:=1 to n-1 do begin
for j:=1 to n-1 do begin
if b[j]>b[j+1] then begin
buf:=b[j];
b[j]:=b[j+1];
b[j+1]:=buf;
end;
end;
for j:=1 to n do write(b[j],' ');
writeln;
end;
end.

 

Выводит ходы сортировки.