Дан целочисленный массив A(a1..an). Отсортировать массив по возрастанию , начиная с минимального элемента
Answers & Comments
alexfedor932
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.
Answers & Comments
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.