я сама вот пробовала решать и вот что у меня получилось:
program Lab8;
usese crt;
type matrix=array[1..10,1..10] of integer;
var a:matrix;
i,j,n,x,y:byte;
ch:char;
procedure vvod(var ma:matrix; n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do ma[i,j]:=random(10);
end;
procedure print(ma:matrix; n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do write(ma[i,j]:2);
writeln;
end;
begin
clrscr;
x:=1;y:=1;
write('vvedite razmer kvadratnoy matrix: ');
readln(n);
if n>10 then n:=10;
vvod (a,n) ;
print (a,n) ;
gotoxy(1,1) ;x:=1 ;y:=1;
while true do begin
ch:=readkey;
if ch=#0 then begin
if ch=#79 then exit;
if (ch=#77) and (x<2*n) then begin x:=x+2;gotoxy(x,y) end;
if (ch=#75) and (x>2) then begin x:=x-2;gotoxy(x,y) end;
if (ch=#72) and (y>n/4) then begin y:=y-1; gotoxy(x,y) end;
if (ch=#80) and (y<11) then begin y:=y+1; gotoxy(x,y) end;
end;
end;
помогите мне исправить ошибки и как мне сумму вычислить??