Variantlardagi barcha masalalarni Builderda variantingiz bo’yicha bajaring

Labaratoriya ishi-3.
1-variant. Variantlardagi barcha masalalarni Builderda variantingiz bo’yicha bajaring.

1. 
   a[n][m] massiv elementlarini [0; 10000] oraliqdagi sonlar bilan to’ldiring.
   

Bu massivning har bir satr elementlarini o’sish tartibida chiqaring.

//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
float a[100][100],s,x,S=0,Z;
int i,j,k,l,n,m,c,b;
TForm1 *Form1;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
n=StrToFloat(Edit1->Text);
m=StrToFloat(Edit2->Text);
c=StrToFloat(Edit3->Text);
b=StrToFloat(Edit4->Text);
for ( i = 1; i <= n; i ++ )
for ( j = 1; j <= m; j ++ )
a[i][j] = random(b-c+1)+c;
for(i=1;i<=n;i++)
{
for(j=1;j<=m;j++)
StringGrid1->Cells[j][i]=FloatToStr(a[i][j]);
}
}
//---------------------------------------------------------------------------