Ввести числовой массив из 10 элементов(массив одномерный) отсортировать числа в массиве в порядке возрастания вывести на экран отсортированный массив. использовать окна) )
Var a:array[1..10] of longint; n,i,b:integer; f:boolean; Begin readln(n); for i:=1 to n do read(a[i]); writeln; repeat f:=true; for i:=2 to n do if a[i-1]>a[i] then Begin b:=a[i-1]; a[i-1]:=a[i]; a[i]:=b; f:=false; end; until f; for i:=1 to n do write(a[i]:5); end.
n,i,b:integer;
f:boolean;
Begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
repeat
f:=true;
for i:=2 to n do
if a[i-1]>a[i] then Begin
b:=a[i-1];
a[i-1]:=a[i];
a[i]:=b;
f:=false;
end;
until f;
for i:=1 to n do write(a[i]:5);
end.