Это убывание массива, переделайте в массив возрастания program rost; var n,i,j,x,imax:integer; a:a

Это убывание массива, переделайте в массив возрастания program rost; var n,i,j,x,imax:integer; a:array[1..10] of integer; begin for i:=1to 10do read(a[i]); for i:=1to 10 do write(a[i], ' ' ); for i:=1to 9do begin imin:=i; for j:=i+1to 10 do if a[j]>a[imax] then imax:=j; x:=a[i]; a[i]:=a[imax]; a[imax]:=x end; for i:=1to 10do write (a[i], ' ' ); end.
Гость
Ответ(ы) на вопрос:
Гость
Program rost; const n=10; var i,j,x,imin:integer;  a:array[1..n] of integer; begin  for i:=1 to n do read(a[i]);  for i:=1 to n do write(a[i], ' ' ); writeln; for i:=1 to n-1 do begin   imin:=i;   for j:=i+1 to n do if a[j]<a[imin] then imin:=j;  x:=a[i];   a[i]:=a[imin];  a[imin]:=x  end; for i:=1 to n do write (a[i], ' ' ); writeln; end. Пример: 6 4 9 2 5 1 3 7 8 2 6 4 9 2 5 1 3 7 8 2  1 2 2 3 4 5 6 7 8 9 
Не нашли ответ?
Ответить на вопрос
Похожие вопросы