Определить название государства с минимальной плотностью населения

[zvygin1964]

Фу... Ну, так показывайте... Или ?

[hardprogramm]

Любые данные, абсолютно, не важно.

[Алексей_2012]

шедеврально!!!

Ахаха, компонент формы!= телу программы

[Аватар]

Ну коль в теле программы, то лови

procedure TForm1.Button1Click(Sender: TObject);
const CountCountry = 28;
      Simbols = 'абвгдежзиклмнопрстуфхцчшщ';
var i,j,k,xArea,xPopulation,xMinIndex: Integer;
    xDensity,xMinDensity: Double;
    s: String;
begin
  StringGrid1.RowCount:=CountCountry+1;
  StringGrid1.FixedRows:=1;
  StringGrid1.ColCount:=4;
  StringGrid1.FixedCols:=0;
  StringGrid1.Cells[0,0]:='страна';
  StringGrid1.Cells[1,0]:='площадь';
  StringGrid1.Cells[2,0]:='жителей';
  StringGrid1.Cells[3,0]:='плотность';

  Randomize;
  xMinDensity:=102*1000;
  for i:=1 to CountCountry do begin
    k:=5+Random(6);
    s:='';
    for j:=1 to k do s:=s+Simbols[Random(Length(Simbols))+1];
    StringGrid1.Cells[0,i]:=AnsiUpperCase(s[1])+Copy(s,2,k);
    xArea:=Random(500)+50;            StringGrid1.Cells[1,i]:=IntToStr(xArea);
    xPopulation:=Random(100)+2;       StringGrid1.Cells[2,i]:=IntToStr(xPopulation);
    xDensity:=xPopulation*1000/xArea; StringGrid1.Cells[3,i]:=FloatToStrF(xDensity,ffFixed,10,3);
    if xMinDensity>xDensity then begin xMinIndex:=i; xMinDensity:=xDensity; end;
  end;
  ShowMessage(Format('Минимальная плотность населения у страны %s',[StringGrid1.Cells[0,xMinIndex]]));
end;