Bài 13: Kiểu bản ghi

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
0o0 Nhok kawaii 0o0

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

Nguyễn Lê Phước Thịnh
30 tháng 4 2020 lúc 10:22

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.


Các câu hỏi tương tự
Anh Lê duy
Xem chi tiết
hoai thu
Xem chi tiết
Anh Lê duy
Xem chi tiết
Anh Lê duy
Xem chi tiết
Quyên Bùi
Xem chi tiết
Anh Lê duy
Xem chi tiết
trần đình quý
Xem chi tiết
le khoa thanh
Xem chi tiết
Anh Lê duy
Xem chi tiết