Các bài toán cơ bản về mảng hai chiều

Bài 1: Nhập vào 1 mảng 2 chiều gồm 3 dòng, 4 cột. In ra màn hình các số theo từng dòng và cột đã nhập.

Bài 2: Cho ma trận vuông A cấp 4, với phần tử nguyên thuộc đoạn từ 1..100. Tìm phần tử lớn nhất, phần tử nhỏ nhất.

Bài 3: Cho ma trận vuông A cấp n với phần tử nguyên thuộc đoạn từ 1..100.
a) Sắp xếp tăng dần với từng dòng
b) Sắp xếp giảm theo từng cột

Bài 4: Nhập ma trận vuông cấp n. Xuất ra màn hình ma trận chuyển vị (đổi dòng thành cột).

Bài 5: Cho ma trận vuông A cấp n với phần tử nguyên thuộc đoạn 1..100.
a) Tìm phần tử lớn nhất, phần tử nhỏ nhất.
b) In ra ma trận tam giác trên đường chéo chính.
c) In ra ma trận tam giác dưới đường chéo chính.
d) Sắp xếp tăng dần các phần tử đường chéo chính.
e) Tìm ma trận chuyển vị.

Bài 6: Sinh ngẫu nhiên dãy n số nguyên (n<2000).
a) Tìm phần tử nhỏ nhất và chỉ ra vị trí.
b) Tìm phần tử lớn thứ hai và chỉ ra vị trí
c) Tìm vị trí các dãy đoạn con dài nhất mà các phần tử là 0 (nếu có).

Bài 7: Cho một dãy gồm N số tự nhiên được sinh ngẫu nhiên có giá trị trong khoảng [1..100], các phần tử của dãy khác nhau từng đôi một và một số tự nhiên k được nhập từ bàn phím. Hãy tìm một dãy con dài nhất liên tiếp nhau sao cho tổng chia hết cho k. Cho biết độ dài và vị trí bắt đầu của dãy con tìm được.
Ví dụ: Với dãy số 1 3 4 2 7 ( N=5) và k =3
Kết quả: Độ dài của dãy con tìm được theo yêu cầu là 3, vị trí bắt đầu của dãy con tìm được là 2.

uses crt;
type mang=array[1..100,1..100]of integer;
var n,i,j:integer;
a:mang;
{************************}
procedure nhap(a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');readln(a[i,j]);
end;
end;
{*************************}
procedure xuat(a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end;
{*************************}
begin
clrscr;
writeln('ma tran tren duong cheo chinh');
write('nhap ma tran n:');readln(n);
nhap(a,n);
writeln('ma tran ban dau la:');
xuat(a,n);
writeln('ma tran tren duong cheo chinh la:');
for i:=1 to n do
begin
for j:=1 to n do
if j>=i then write(a[i,j]:5)
else write(' ':5);
writeln;
writeln;
end;
readln
end.

uses crt;
type mang=array[1..100,1..100]of integer;
var n,i,j:integer;
a:mang;
{*********************}
procedure nhap(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');readln(a[i,j]);
end;
end;
{*********************}
procedure xuat(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end;
{*********************}
begin
clrscr;
writeln('ma tran chuyen vi');
write('nhap so ma tran n:');readln(n);
nhap(a,n);
writeln('ma tran dau tien la:');
xuat(a,n);
writeln('ma tran sau khi doi la:');
for j:=1 to n do
begin
for i:=1 to n do
write(a[i,j]:5);
writeln;
writeln;
end;
readln;
end

uses crt;
type mang=array[1..100,1..100]of integer;
var a:mang;i,j,n:integer;
{**************}
procedure nhap(a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');readln(a[i,j]);
end;
end;
{**************}
procedure xuat(a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end;
{**************}
begin
clrscr;
writeln('ma tran tren duong cheo phu');
write('nhap ma tran n:');readln(n);
nhap(a,n);
writeln('ma tran ban dau la:');
xuat(a,n);
writeln('ma tran tren duong cheo phu la:');
for i:=1 to n do
begin
for j:=1 to n do
if j<i then write(a[i,j]:5)
else write(' ':5);
writeln;
writeln;
end;
readln;
end.

1) ma trận trên đường chéo chính
uses crt;
type mang=array[1..20,1..20]of integer;
var n,i,j:integer;
a:mang;
procedure nhap(a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');readln(a[i,j]);
end;
end;
procedure xuat(a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end;
begin
clrscr;
writeln('ma tran tren duong cheo chinh');
write('nhap ma tran n:');readln(n);
nhap(a,n);
writeln('ma tran ban dau la:');
xuat(a,n);
writeln('ma tran tren duong cheo chinh la:');
for i:=1 to n do
begin
for j:=1 to n do
if j>=i then write(a[i,j]:5)
else write(' ':5);
writeln;
writeln;
end;
readln
end.

uses crt;
type mang=array[1..100,1..100]of integer;
var a:mang;n,i,j:integer;
{****************}
procedure nhap(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
end;
{**************}
procedure xuat(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end;
{***************}
begin
clrscr;
writeln('ma tran chuyen vi');
write('nhap so cap ma tran vuong:');readln(n);
nhap(a,n);
writeln('ma tran dau tien la');
xuat(a,n);
writeln('ma tran chuyen vi la');
for j:=1 to n do
begin
for i:=1 to n do
write(a[i,j]:3);
writeln;
writeln;
end;
readln;
end.

uses crt;
type mang=array[1..100,1..100]of integer;
var a:mang;n,i,j:integer;
{*****************}
procedure nhap(var a:mang;n:integer);
         var i,j:integer;
         begin
              for i:=1 to n do
                  for j:=1 to n do
                      begin
                           write('a[',i,',',j,']=');readln(a[i,j]);
                      end;
         end;
{*****************}
procedure xuat(var a:mang;n:integer);
         var i,j:integer;
         begin
              for i:=1 to n do
                  begin
                       for j:=1 to n do
                       write(a[i,j]:3);
                       writeln;
                  end;
         end;
{********************}
begin
    clrscr;
    writeln('ma tran tren duong cheo chinh');
    write('nhap so cap ma tran vuong:');readln(n);
    nhap(a,n);
    writeln('ma tran dau tien la');
    xuat(a,n);
    writeln('ma tran tren duong cheo chinh la');
    for i:=1 to n do
        begin
for j:=1 to n do
             if j>=i then writeln(a[i,j]:3)
             else writeln(' ':3);
 writeln;
 writeln;
        end;
    readln;
end.

uses crt;
type mang=array[1..100,1..100]of integer;
var a:mang;n,i,j:integer;
{******************}
procedure nhap (var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
end;
{******************}
procedure xuat(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end;
{*******************}
begin
clrscr;
writeln('ma tran tren duong cheo phu');
write('nhap so cap ma tran vuong:');readln(n);
nhap(a,n);
writeln('ma tran dau tien la');
xuat(a,n);
writeln('ma tran tren duong cheo phu la');
for i:=1 to n do
begin
for j:=1 to n do
if j<=i then write(a[i,j]:3)
else write(' ':3);
writeln;
writeln;
end;
readln;
end.

uses crt;
type mang=array[1..20,1..20]of integer;
var n,i,j:integer;
a:mang;
procedure nhap(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');readln(a[i,j]);
end;
end;
procedure xuat(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end;
begin
clrscr;
writeln('ma tran chuyen vi');
write('nhap so ma tran n:');readln(n);
nhap(a,n);
writeln('ma tran dau tien la:');xuat(a,n);
writeln('ma tran sau khi doi la:');
for j:=1 to n do
begin
for i:=1 to n do
write(a[i,j]:5);
writeln;
writeln;
end;
readln;
end.

uses crt ;
type matran=array[1..100,1..100] of integer ;
var a:matran;
i,j,m,k,n,x : integer ;
{-----------------------}
procedure xmt (var t:matran;
n:integer );
var i,j : integer ;
begin
clrscr;
for i:=1 to n do
begin
for j:=1 to n do write (a[i,j]:5);
writeln;
writeln;
end;
end;
{------------------------------------------------}
begin
write ('nhap a[',i,',',j,']:'); readln (a[i,j]);
writeln ('chay ma tran :;');readln (n);
for i:=1 to n do
for j:=1 to n do
begin
write (' nhap a[',i,',',j,']:'); readln( a[i,j]);
end;
write (' ma tran bat dau :');
matran (n,a);
writeln;
writeln (' ma tran chuyen vi :');
for j:=1 to n do
begin
for i:=1 to n do
write a[i,j]:5);
writeln;
writeln;
readln
end.