ввод/вывод данных из/в файл для данной программы?

[Tetramorf]

Задан массив A(10). Переставить положительные элементы в обратном порядке.


//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::B1Click(TObject *Sender)
{
int i;
for(i=0;i<SG1->ColCount;i++)
{SG1->Cells[i][0]=random(100)-50;}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::B2Click(TObject *Sender)
{
int b=9, d=0, c=0, i, z;
for(i=0;i<SG1->ColCount;i++)
{
if (SG1->Cells[i][0]>0)
{c++;}
}

for(i=0;i<SG1->ColCount;i++)
{
if (SG1->Cells[i][0]<=0)
{SG2->Cells[i][0]=SG1->Cells[i][0];}
}

if (c%2 == 0)
{

for (z=c/2; z>0; z--)
{

for(i=d; i<SG1->ColCount; i++)
{
if (SG1->Cells[i][0]>0)
{
d=i;
break;
}
}

for(i=b; i>=0; i--)
{
if (SG1->Cells[i][0]>0)
{
b=i;
break;
}
}

SG2->Cells[b][0]=SG1->Cells[d][0];
SG2->Cells[d][0]=SG1->Cells[b][0];

d++;
b--;

}

}

else
{

for (z=c/2+1; z>0; z--)
{

for(i=d; i<SG1->ColCount; i++)
{
if (SG1->Cells[i][0]>0)
{
d=i;
break;
}
}

for(i=b; i>=0; i--)
{
if (SG1->Cells[i][0]>0)
{
b=i;
break;
}
}

SG2->Cells[b][0]=SG1->Cells[d][0];
SG2->Cells[d][0]=SG1->Cells[b][0];

d++;
b--;

}

}

}
//---------------------------------------------------------------------------