[SerginhoLD]

stervochka :

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,l,k:integer;
  a: array[1..5,1..5] of real;
begin
  for i:=1 to 5 do
    for j:=1 to 5 do
      a[i,j]:=1/(i+j)-COS(i);
  l:=2; k:=4;
  for i:=5 downto 1 do
  begin
    if  l<=k then
      for j:=l to k do
        StringGrid1.Cells[j,i]:=floattostr(a[j,i]);
    inc(l); dec(k);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  for i:=1 to 5 do
  begin
    StringGrid1.Cells[0,i]:=inttostr(i);
    StringGrid1.Cells[i,0]:=inttostr(i);
  end;
end;