Matrik Mencari Data Terbesar

-Hasil Keluaran-

masukkan jumlah baris : 3

masukkan jumlah kolom : 2

-----------------------------------------------------

masukan elemen : 1

masukan elemen : 3

masukan elemen : 2

masukan elemen : 5

masukan elemen : 7

masukan elemen : 2

hasil pencarian data terbesar adalah : 7

-Sintax Pascal-

program MatriksTerbesar
uses wincrt;

const
NbarisMaks = 20;
NkolomMaks = 20;

var
L : array [1..NbarisMaks , 1..NkolomMaks ] of integer;
Nbar,Nkol : integer;
i, j, maks : integer;

begin
   write ('masukkan Jumlah baris : '); readln (Nbar);
   write ('masukkan Jumlahkolom : '); readln (Nkol);
   write ('-----------------------------------------------------');
   writeln;
   maks := L[1,1];
   for i := 1 to Nbar do
       begin
           for j := 1 to Nkol do
                begin
                    write ('masukan elemen : '); readln (L[i,j]);
                     if L[i,j] > maks then
                           begin
                               maks := l[i,j];
                            end;
                  end;
             end;
        writeln;
        writeln ('hasil pencarian data terbesar adalah : ', maks);
end.