Курсовая работа: Информационная система для автоматизации операций в отношениях между поставщиком и заказчиком

then s:=s+StrToInt(tabl.cells[c,r])

else tabl.cells[c,r]:='0';

p:=7*StrToInt(tabl.cells[1,r])+

6*StrToInt(tabl.cells[2,r])+

5*StrToInt(tabl.cells[3,r]);

tabl.cells[4,r]:=IntToStr(s); // âñåãî ìåäàëåé

tabl.cells[5,r]:=IntToStr(p); // î÷êîâ

end;

for r:=1 to tabl.rowcount-1 do

begin

m:=r; // ìàêñèìàëüíûé ýëåìåíò - â r-îé ñ&ogra