Материал: Программа, предназначенная для осуществления определенных действий над заданной матрицей

{ cleardevice; }(0,0,0);:=1;:=55;:=180;:=300;:=150;;(w,5,'Изменённая матрица :');i:=1 to n doj:=1 to n do[i,j]:=a[i,j]/step(fac(i),j);;;:;:=115;:=400;:=200;:=100;:=7;;(1,9);(4);(0,0,3);(20,30,100,60);(380,30,300,60);(19,29,101,29);(19,29,19,61);(19,61,101,61);(101,61,101,29);(381,29,381,61);(381,61,299,61);(299,61,299,29);(299,29,382,29);(0,0,2);(125,20,'Повторить?');(4,0,0);(35,21,'Yes');(325,22,'No');(2);;:lb4::=readkey;(1,9);(4);(0,0,3);(20,30,100,60);(380,30,300,60);(19,29,101,29);(19,29,19,61);(19,61,101,61);(101,61,101,29);(381,29,381,61);(381,61,299,61);(299,61,299,29);(299,29,382,29);(4,0,0);(35,21,'Yes');(325,22,'No');(2);z=#75 then(1,4);(20,30,100,60);(35,21,'Yes');(325,22,'No');:=readkey;z=#13 thenlb1goto lb3;;z=#77 then(1,4);(380,30,300,60);(35,21,'Yes');(325,22,'No');:=readkey;z=#13 thenlb2goto lb4;;:

end.