Advertisement
Guest User

Untitled

a guest
Feb 26th, 2017
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.18 KB | None | 0 0
  1. int v=0,i,j,pk=0, ok=0;
  2. int m[11];
  3. int p[11], o[11];
  4. for (i=1; i<11; i++)
  5. {
  6. m[i]=arr[i];
  7. }
  8.  
  9. for (i=1; i<11; i++)
  10. {
  11. if (m[i]>0)
  12. {
  13. pk++;
  14. p[pk]=m[i];
  15. }
  16. if (m[i]<0)
  17. {
  18. ok++;
  19. o[ok]=m[i];
  20. }
  21. }
  22.  
  23.  
  24.  
  25. for (i=1;i<pk+1;i++)
  26. {
  27. for (j=1;j<pk+1-i;j++)
  28. {
  29. if (p[j]>p[j+1]) {
  30. v=p[j];
  31. p[j]=p[j+1];
  32. p[j+1]=v;
  33. }
  34. }
  35. }
  36.  
  37. for (i=1;i<ok+1;i++)
  38. {
  39. for (j=1;j<ok+1-i;j++)
  40. {
  41. if (o[j]>o[j+1]) {
  42. v=o[j];
  43. o[j]=o[j+1];
  44. o[j+1]=v;
  45. }
  46. }
  47. }
  48.  
  49. for (i=1; i<pk+1; i++)
  50. {
  51. m[i]=p[i];
  52. }
  53. ok=0;
  54. for (i; i<11; i++)
  55. {
  56. ok++;
  57. m[i]=o[ok];
  58. }
  59.  
  60. r1->Text=Convert::ToString(m[1]);
  61. r2->Text=Convert::ToString(m[2]);
  62. r3->Text=Convert::ToString(m[3]);
  63. r4->Text=Convert::ToString(m[4]);
  64. r5->Text=Convert::ToString(m[5]);
  65. r6->Text=Convert::ToString(m[6]);
  66. r7->Text=Convert::ToString(m[7]);
  67. r8->Text=Convert::ToString(m[8]);
  68. r9->Text=Convert::ToString(m[9]);
  69. r10->Text=Convert::ToString(m[10]);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement