procedure TForm1.CalcularClick(Sender: TObject);
var
totsuc: array [1..4] of real;
promsuc: array [1..4] of real;
totmes: array [1..3] of real;
prommes: array [1..3] of real;
columnas:integer;
renglones:integer;
begin
for renglones:=0 to 3 do begin
for columnas:=0 to 2 do begin
totsuc[renglones+1]:=totsuc[renglones+1]+strtofloat(stringgrid1.Cells[columnas,renglones]);
end;
end;
for renglones:=0 to 3 do begin
promsuc[renglones+1]:=totsuc[renglones+1]/3;
end;
for renglones:=0 to 3 do begin
for columnas:=0 to 2 do begin
totmes[columnas+1]:=totmes[columnas+1]+strtofloat(stringgrid1.Cells[columnas,renglones]);
end;
end;
for columnas:=0 to 2 do begin
prommes[columnas+1]:=totmes[columnas+1]/4;
end;
for renglones := 0 to 3 do begin
listbox1.Items.Add(floattostr(totsuc[renglones+1]));
listbox2.Items.Add(floattostr(promsuc[renglones+1]));
end;
for columnas := 0 to 2 do begin
listbox3.Items.Add(floattostr(totmes[columnas+1]));
listbox4.Items.Add(floattostr(prommes[columnas+1]))
end;
end;
end.