viết chương trình kiểm tra ma tran co la ma tran chữ thập hay không biết 1 ma tran được goi là ma trận chữ thập nếu phần tử ở hai đường chéo=1, các ph

program sochanle;

uses crt;

var n,i,dc,dl:integer;

begin

clrscr;

write(‘Nhap n: ‘);   readln(n);

dc:=0;  dl:=0;

for i:=1 to n do

 if (i mod 2=1) then dl:=dl+1 else dc:=dc+1;

writeln(‘So luong so chan la: ‘,dc);

writeln(‘So luong so le la: ‘,dl);

readln

end.