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

Question

Информатика

Алиска

1 февраля, 20:16

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

+3

Ответы (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.