Bài tập Pascal Free Pascal 01 đến 16 Có bài giải (từ đơn giản đến nâng cao) BY Nguyễn Anh Việt
https://app.box.com/s/mtg0fzik6bet3tes96tu4bmt8wsxaahw
https://app.box.com/s/mtg0fzik6bet3tes96tu4bmt8wsxaahw
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Bài tập Pascal – Từ cơ bản đến nâng cao
Begin
WriteLn('Hay nhap so dong, cot cua ma tran vuong');
ReadLn(n);
{Nhập ma trận vuông}
For i:=1 to n do
For j:=1 to n do begin
WriteLn('Hay nhap phan tu thu ', i, j);
ReadLn(A[i, j]);
End;
{In ra ma trận vuông}
For i:=1 to n do begin
For j:=1 to n do
Write(A[i, j]:3);
WriteLn;
End;
{Tìm các số trên đường chéo chính}
WriteLn('Cac so tren duong cheo chinh la:');
For i:=1 to n do
For j:=1 to n do
If i = j then
Write(A[i,j]:3);
WriteLn;
ReadLn;
End.
Bài 5.05 – Đường chéo phụ của Ma trận vuông
(Mảng 1 4 7
5 2 9
8 1 3
có các số trên đường chéo phụ là 7, 2 và 8)
Bạn hãy nhập một ma trận vuông và tìm các số trên đường chéo phụ.
Var
A: Array [1..10] of Integer;
i, j, m, n: Integer;
Begin
WriteLn('Hay nhap so dong, cot cua ma tran vuong');
ReadLn(n);
{Nhập ma trận vuông}
For i:=1 to n do
For j:=1 to n do begin
WriteLn('Hay nhap phan tu thu ', i, j);
Biên soạn: Th.s Nguyễn Anh Việt Trang 18