Дан целочисленный массив A (a1 ... an). Отсортировать массив по возрастанию, начиная с минимального элемента

Question

Информатика

Танюша

3 октября, 09:42

Дан целочисленный массив A (a1 ... an). Отсортировать массив по возрастанию, начиная с минимального элемента

+2

Ответы (1)

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

Петруха · Answer 1

Const n=10;

var

a:array[1 ... n] of integer;

i, i1, num:integer;

begin

for i:=1 to n do a[i]:=random (-100,100);

for i:=1 to n-1 do begin

for i1:=1 to n-i do begin

if a[i1]>a[i1+1] then begin

num:=a[i1];

a[i1]:=a[i1+1];

a[i1+1]:=num;

end;

end;

end;

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

end.