Ответы и объяснения

2014-03-30T06:58:36+00:00
Var a: array[1..100] of integer;
I, j, l, n: integer;
Begin
 Writeln(‘введите размер массива’);
 Readln (n);
 For I:=1 to n do
  read(a[I]);
 repeat
  I:=0;
  for j:=1 to n-1 do 
  if a[j]>a[j+1] then begin
  l:=a[j]; a[j]:=a[j+1];
  a[j+1]:=l;I:=I+1;
 end;
 until I=0;
for I:=1 to n do write(a[I],’ ‘,);
end.