Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- int v=0,i,j,pk=0, ok=0;
- int m[11];
- int p[11], o[11];
- for (i=1; i<11; i++)
- {
- m[i]=arr[i];
- }
- for (i=1; i<11; i++)
- {
- if (m[i]>0)
- {
- pk++;
- p[pk]=m[i];
- }
- if (m[i]<0)
- {
- ok++;
- o[ok]=m[i];
- }
- }
- for (i=1;i<pk+1;i++)
- {
- for (j=1;j<pk+1-i;j++)
- {
- if (p[j]>p[j+1]) {
- v=p[j];
- p[j]=p[j+1];
- p[j+1]=v;
- }
- }
- }
- for (i=1;i<ok+1;i++)
- {
- for (j=1;j<ok+1-i;j++)
- {
- if (o[j]>o[j+1]) {
- v=o[j];
- o[j]=o[j+1];
- o[j+1]=v;
- }
- }
- }
- for (i=1; i<pk+1; i++)
- {
- m[i]=p[i];
- }
- ok=0;
- for (i; i<11; i++)
- {
- ok++;
- m[i]=o[ok];
- }
- r1->Text=Convert::ToString(m[1]);
- r2->Text=Convert::ToString(m[2]);
- r3->Text=Convert::ToString(m[3]);
- r4->Text=Convert::ToString(m[4]);
- r5->Text=Convert::ToString(m[5]);
- r6->Text=Convert::ToString(m[6]);
- r7->Text=Convert::ToString(m[7]);
- r8->Text=Convert::ToString(m[8]);
- r9->Text=Convert::ToString(m[9]);
- r10->Text=Convert::ToString(m[10]);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement