Các bác làm dài wa', cách của em ngắn gấp bội lè mà vẵn đúng:
procedure Gen_Spiral(var A: matrix; m, n: integer);
var x, y, seed, count, direct, total: integer;
begin
direct := 4;
total :=...
Type: Posts; User: thangtien97; Keyword(s):
Các bác làm dài wa', cách của em ngắn gấp bội lè mà vẵn đúng:
procedure Gen_Spiral(var A: matrix; m, n: integer);
var x, y, seed, count, direct, total: integer;
begin
direct := 4;
total :=...