Bµi 14 A !"# $%&' ()* +),%-* !"# ./0123.4(* 7935 3829 6741 1 2 3 4 1 2 3 5637833 !"#$%&'()**+,&'-./012&'-./34$&'(5 6*$0.7(8$%&'(5 690:8 !"#;)**+,<2<34==*5 6*>8;5 563$839 6*$?.7(8**+,'-./012&'-./34$&'(5 6*>2;8**+,@2A@34*=5 690:8 6*;8**+,<2<34==*5 ABC9* 1. :;<=>?@<=>? Write(‘ Nhap vao so dong, cot:’); Readln(n,m); $ :;@3A23 ) > ? For i:= 1 to n do For j:=1 to m do Begin write(‘A[’,i,j,’ ] = ’ ); readln(A[i,j]); end; C¸c bíc: ThÓ hiÖn b»ng pascal :;)B A 1 2 3 4 1 2 3 7935 3829 6741 8 C)B Writeln(‘ Mang vua nhap : ’); For i:=1 to n do Begin For j:=1 to m do Write(A[i,j],’ ’); Writeln; end; Mang vua nhap: 1 4 7 6 9 2 8 3 5 3 9 7 1. D83 2. C3A23 E)@F BC9DE0FGFOR do H For i :=1 to 9 do For j:=1 to 9 do A[i,j] := i*j; 633G0"H3 VÝ dô: TÝnh vµ in ra mµn h×nh b¶ng cöu ch¬ng. For i :=1 to 9 do Begin For j:=1 to 9 do write(A[i,j]:5); writeln; writeln; End; IJ4K3LM4 NOF @P 8@3"# QR 1 2 3 4 5 6 7 8 9 2 4 6 8 10 12 14 16 18 3 6 9 12 15 18 21 24 27 4 8 12 16 20 24 28 32 36 5 10 15 20 25 30 35 40 45 6 12 18 24 30 36 42 48 54 7 14 21 28 35 42 49 56 63 8 12 24 32 40 48 56 68 72 9 18 27 36 45 54 63 72 81 * TÝnh * IN ra mµn h×nh Quan s¸t b¶ng cöu ch¬ng ta thÊy: A[2,5]=2 x 5 = 10 A[5,8]=5 x 8 = 40 A[i,j]=i*j H·y nhí ! +)B0@)B@ S 2 0T 0@ ) B 8()H.P<= H.P<=H. 78 (8)<< 3G0"NKUVW J01XYZ [Y0, … 15 20 19 16 25 18 17 12 16 Var A:ARRAY[1 10,1 10] OF integer; A[1,3] = 19