Составить программу на Паскале сортировки массива по возрастанию

Question

Информатика

Полинария

2 февраля, 22:31

Составить программу на Паскале сортировки массива по возрастанию

+4

Ответы (1)

Знаете ответ?

Витуша · Answer 1

Сортировка методом пузырька:

const n=10;

Var a:array[1 ... n] of integer; i, j, b:integer;

Begin

for i:=1 to n do read (a[i]) ;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[j]
begin

b:=a[i];

a[i]:=a[j];

a[j]:=b;

end;

for i:=1 to n do write (a[i],' ') ;

End.