Cho 1 bảng A NxN số nguyên ( N<=100). Mỗi số trong bảng có giá trị tuyệt đối không vượt quá 30000. Bảng B được tạo ra từ bảng bảng A theo quy tắc sau:
Phần tử của B nằm dòng i, cột j có giá trị bằng tổng của các số nằm trong ô (i,j) và các ô kề nó trong bảng A:
Bij = Aij+A(i+1)j+A(i-1)j+Ai(j+1)+Ai(j-1)
Chú ý: Các phần tử nằm ngoài bảng coi như bằng có giá trị bằng 0.
Bài toán: Cho bảng A. Hãy tạo bảng B tương ứng.
Dữ liệu vào:
Table.inp:
Dòng đầu: số N
Dòng thứ i trong N dòng tiếp theo chứa N số nguyên lần lượt tương ứng với các phần tử nằm trên dòng thứ I của bảng A.
Kết quả :
Table.out
dòng đầu chứa số N
Dòng thứ i trong N dòng tiếp theo chứa N số nguyên lần lượt tương ứng với các phần tử nằm trên dòng thứ I của bảng A.
Đăng ký:
Đăng Nhận xét (Atom)
Bài được xem nhiều nhất
-
Cho dãy n số nguyên dương a1, a2, …, an và số nguyên dương S. Hãy đếm xem có bao nhiêu cặp phần tử (ai, aj) (i <> j) thỏa mãn ai + aj ...
-
Xét xâu S chỉ bao gồm các kí tự ngoặc mở ‘(‘ và ngoặc đóng ‘)’. Xâu S xác định một cách đặt ngoặc đúng, nếu thỏa mãn các điều kiện: · Tổng ...
-
Nhập xâu s chỉ chứa các chữ cái viết hoa. Đếm xem s có bao nhiêu kí tự khác nhau. Input · Dòng 1: số test t · t dòng sau: mỗi dòng 1 xâu ...
-
Cho trước số nguyên dương n. Viết chương trình kiểm tra xem có bao nhiêu số nguyên dương nhỏ hơn hoặc bằng n nguyên tố cùng nhau với n (nghĩ...
-
Phân tích số nguyên dương thành tổng các số hạng của dãy Fibonaci sao cho ít số hạng nhất (các số hạng không được trùng nhau). Xem clip hư...
-
(Tuyến sinh phổ thông năng khiếu 2007) Yêu cầu: Hãy tìm số âm lớn nhất X trong dãy.Cho một dãy gồm N số nguyên a1, a2, …, aN, mỗi số có gi...
-
Đề thi tin học trẻ bảng C tỉnh Quảng Bình năm 2009 Trong máy tính, để tiết kiệm bộ nhớ, người ta thường tìm cách nén dữ liệu. T...
-
Tìm số đảo ngược Y của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại. Xuất ra kết quả là số Y mod 19 Input Output ...
-
Một chuỗi được gọi là có dạng phân số nếu nó có dạng như sau: Tử_số/Mẫu_số. Ví dụ: chuỗi ‘123/456’ biểu diễn cho phân số chuỗi ‘1/12’ biể...
-
Thầy Quách Văn Lượm Điện thoại, Zalo: 0915080405 Facebook: https://www.facebook.com/qvluom Group trao đổi giải thuật: Giải bài tập ...
Uses crt;
Trả lờiXóaVar n,i,j:longint;
a,b:array[0..100,0..100] of longint;
Begin
readln(n);
fillchar(a,sizeof(a),0);
fillchar(b,sizeof(b),0);
For i:=1 to n do
For j:=1 to n do
readln(a[i,j]);
For i:=1 to n do
For j:=1 to n do
b[i,j]:=a[i,j]+a[i-1,j]+a[i+1,j]+a[i,j-1]+a[i,j+1];
For i:=1 to n do
Begin
For j:=1 to n do
Write(b[i,j]:4);
Writeln;
end;
readln;
end.