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

var arr1:array[1..size] of array [1..size] of integer;

var maxString: array[1..size] of point;

var minString: array[1..size] of point;

var maxCol : array[1..size] of point;

var minCol : array[1..size] of point;

var t:integer; i:integer; j:integer;

var result:array[1..size*size] of point;

begin

count := 0;

for i:=1 to size do

begin

for j:=1 to size do

begin

writeln('vvedite ',j,' element ',i,' stroki');

readln(arr[i][j]);

end;

end;

for i:=1 to size do

begin

for j:=1 to size do

begin

write(arr[i][j]:5,' ')

end;

writeln;

end;

for i:=1 to size do

begin

maxString[i].y := 1;

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