2001 - THUẬT TOÁN ĐIỀN SỐ VÀO MA TRẬN(DÀNH CHO HỌC SINH THCS VÀ...

Bài 61/2001 - Thuật toán điền số vào ma trận(Dành cho học sinh THCS và PTTH)Program Bai61;Uses crt;Var a:array[2..250,2..250] of -1..1; n,i,j:integer;BEGIN Write('Doc vao n:'); Readln(n); Fillchar(a, sizeof (a), 0); for i:=1 to n do for j:=1 to n do begin If (i mod 2 <> 0) and (j mod 2 <> 0) then a[i,i] := 1; If (i mod 2 = 0) and (j mod 2 = 0) then a[i,i] := -1; end; Writeln('Mang da dien la: '); begin for j:=1 to n do Write(a[i,j]:3); Writeln; end; Write('Tong lon nhat la:'); If n mod 2 = 0 then Write(0) else Write(n); Readln;END.(Lời giải của bạn Trương Đức Hạnh - 12 Toán Năng Khiếu - Hà Tĩnh)