Перевести из Pascal в C++
Запись от oralov96 размещена 17.03.2015 в 17:42
Показов 1039
Комментарии 0
|
program Sort_lin; const Count=20; m :array[1..Count]of byte=(9,11,12,3,19,1,5,17,10,18,3, 19,17,9,12,20,20,19,2,5); var i ,j ,n,1: Byte; a :integer; begin Writeln(1ishodny massiv1); for i ;=1 to count do write(1 ',m[i]); writeln; a : = 0; for i:=1 to count-1 do for j:=i+1 to count do begin a:=a+1; if m [i ]< m [j ] then begin n:=m[i]; m [ i ] := m [j ]; m [ j ] :=n; end; for 1: = 1 to count do write (' ',rn[l]); writeln(1chislo iteracii', a); end; end. и program Sort_puz; const Count=5; m: array[1..Count]of byte=(9,11,12,3,19,1,5,17,10,18,3,19,17, 9,12,20,20,19,2,5); var i,j,n,k,l: Byte; a : integer; begin Writeln('ishodny massiv'); for i:=l to count do write(' ',m[i]); writeln; a : =0; for i:=l to count do begin for j:=count downto i do begin a:=a+1; if m [j —1]<m[j] then begin k:=m[j-'l]; m [ j — 1 ] : =m [ j ] ; m [ j ] : =k; for 1:=1 to count do write(' ',m[l]); writeln('chislo iteracii=1,a); end; end; end; end. |
Размещено в Без категории
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 0
Комментарии
