Реферат: Работа с табличным процессором Exce

minString[i].value := arr[i][1];

for j:=1 to size do

begin

maxCol[j].y := 1;

maxCol[j].value := arr[1][j];

minCol[j].y := 1;

minCol[j].value := arr[1][j];

if(arr[i][j]>maxString[i].value)

then

begin

maxString[i].value := arr[i][j];

maxString[i].y := j;

end;

if(arr[i][j]<minString[i].value)

then

begin

minString[i].value := arr[i][j];

minString[i].y := j;

end;

end;

end;

for j:=1 to size do

begin

maxCol[j].y := 1;

maxCol[j].value := arr[1][j];

minCol[j].y := 1;

minCol[j].value := arr[1][j];

for i:=1 to size do

begin