Найти сумму элементов нижнего треугольника - Delphi - Ответ 10505127

var
  Form1: TForm1;
  k:byte;
const n=8;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..n,1..n] of integer;
    i,j,s:integer;
begin
randomize;
s:=0;
for i:=1 to n do
for j:=1 to n do
 begin
  a[i,j]:=random(2);
  if (i>n div 2)and(j<=i)and(j>=n-i+1) then s:=s+a[i,j];
  StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
 end;
Label1.Caption:='Сумма в нижнем треугольнике='+inttostr(s);
k:=1;
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var i,j:integer;
begin
if k=1 then
 begin
  for i:=1 to n do
  for j:=1 to n do
  if(ARow>n div 2-1)and(ACol<=ARow)and(ACol>=n-ARow-1) then
  with StringGrid1.Canvas do
  begin
   Brush.Color:=clYellow;
   FillRect(Rect);
   TextOut(Rect.Left+4,Rect.Top+4,StringGrid1.Cells[ACol,ARow]);
  end;
 end;
end;