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)
Bạn đang xem bài 61/ - 100 DE TIN HSG CO DAP AN