Question

a)Viết CT nhập vào 1 số tự nhiên n lẻ. In ra màn hình kết quả bảng n*n sao cho tổng các hàng, cột, và đường chéo đều bằng nhau

b) Viết chương trình nhập vào 1 mảng cấp n*n và in ra mảng vừa nhập

Answer 1

b) uses crt;

var a:array[1..100,1..100]of integer;

n,i,j:integer;

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do

for j:=1 to n do

begin

write('a[',i,',',j,']='); readln(a[i,j]);

end;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]:4);

writeln;

end;

readln;

end.