Написать
программу pascal, которая упорядочивает заданную последо­вательность по убыванию с
помощью сортировки обменами. Сортировка обменами заключается в следующем:
просматривается массив с начала и до конца, и каждый раз сравниваются два
соседних элемента A(i), и A(i+1), если A(i)<A(i+1), то они меняются местами. Просмотр массива с начала и до
конца происходит до тех пор, пока все элементы не упорядочатся.

1

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

2014-04-08T12:40:58+00:00
Const n=20;
var a:array [1..n] of integer;
i,j,k:integer;
begin
for i:=1 to n do begin
a[i]:=random(21)-10;
write (a[i]:4);
end;
writeln;
for j:=1 to n do 
for i:=1 to n-1 do
if a[i]<a[i+1] then begin
k:=a[i];
a[i]:=a[i+1];
a[i+1]:=k;
end;
for i:=1 to n do 
write (a[i]:4);
end.