Chuong trinh nhap vao mang 2 chieu,
chuyen mang do thanh mang 1 chieu va tim gia tri max cua mang.
************************************************************** 
program Manghaichieu;
uses crt;
const Max1=10;
      Max2=100;
Type mang2chieu=array[1..Max,1..Max] of integer;
Type mang1chieu=array[1..Max2] of integer;
Var A:mang2chieu;
    B:mang1chieu;
    n,m,p,i,j,k:byte;
    GTLN:integer;
BEGIN
clrscr;
write('Nhap vao chieu dai cua mang 2 chieu');
readln(n);
write('Nhap vao chieu rong cua mang 2 chieu');
readln(m);
Writeln('Nhap vao cac phan tu cua mang 2 chieu');
For i:=1 to n do
     For j:=1 to m do
        begin
           write('A[',i,',',j,']=');
           readln(a[i,j]);
        end;
k:=1;
For i:=1 to n do
     For j:=1 to m do
        begin
           B[k]:=a[i,j];
           k:=k+1;
        end;
p:=n*m;
GTLN:=B[1];
For k:=2 to p do
     If B[k]>GTLN do
           GTLN:= B[k];
Write('Gia tri lon nhat cua mang vua nhap la',GTLN,');
readln;
END.
************************************************************