Assalamualaikum Warahmatullahi Wabarakatu
Alhamdulillah saya dapat kembali menyusun postingan yang Insya Allah bermanfaat.

Seperti pada judul diatas kita akan membuat program untuk menjumlahkan seluruh elemen matrik dengan menggunakan bahasa pemrogramman pascal dan aplikasinya adalah dev-pascal. Bagi Anda yang belum memiliki aplikasinya dapat Anda download secara gratis di Free Download Aplikasi Dev-Pascal dengan Penjelasan beserta Tipsnya.
Baik kita mulai membuat program. Let's go !
Untuk membuat sebuah matriks berordo M x N kita harus menyediakan maksimum baris dan maksimum kolom (buatlah konstanta).
Nah untuk matriksnya kita gunakan sebuah array [M, N] atau array[1..Maks_Baris, 1..Maks_Kolom]
Untuk lebih lengkapnya silahkan Anda lihat source proram dibawah ini :

program Jumlah_Total_Elemen_Matriks;
{I.S. : User memasukkan elemen matriks A berordo M x N (M=baris matriks, N=kolom matriks)}
{
      *Program ini dibuat oleh Bayu Wijaya Permana Putra
}
{F.S. : Menampilkan jumlah total elemen matrik}
uses crt;
{kamus global} {
      *Program ini dibuat oleh Bayu Wijaya Permana Putra
}
const
  Maks_Baris = 10;
  Maks_Kolom = 10;
type
  matriks= array [1..Maks_Baris,1..Maks_Kolom] of integer;
var
  A: matriks;
  M,N : integer; {M: banyaknya baris, N: banyaknya kolom}

{====================Procedure isi Matriks====================}
Procedure Isi_Matriks(var M,N: integer; var A:matriks);
{I.S. : user memasukkan elemen matriks A berordo M x N}
{
      *Program ini dibuat oleh Bayu Wijaya Permana Putra
}
{F.S. : Menghasilkan sebuah Matriks A berordo M x N}
{
      *Program ini dibuat oleh Bayu Wijaya Permana Putra
}
var {kamus lokal}
  i,j: integer;
begin
  gotoxy(28,22);write('Copyright 2013 by @BayuWPP');
  gotoxy(23,23);write('Programmer : Bayu Wijaya Permana Putra');
  gotoxy(1,1);write('Banyaknya Baris : ');readln(M);
  gotoxy(1,2);write('Banyaknya Kolom : ');readln(N);
  {Mengisi matriks}
  clrscr;
  gotoxy(1,1);write('Matriks A');
  gotoxy(1,2);write('=========');
  for i:= 1 to M do
  begin
    for j:= 1 to N do
      begin
        {
         *Program ini dibuat oleh Bayu Wijaya Permana Putra
        }
        gotoxy(j*5-4,i+2);readln(A[i,j]);
      end;//endfor
  end;//endfor
end;//endprocedure

{===================Function TotalElemen===================}
function TotalElemen(M,N:integer; A:matriks) : integer;
{I.S. : Matriks A berordo M x N sudah terdefinisi}
{F.S. : Menghasilkan jumlah total elemen matriks A berordo M x N}
var {kamus lokal}
  i,j : integer;
  Total : integer;
begin
  {inisialisasi (total mula-mula)}
  Total := 0;
  {penjumlahan}
  for i:= 1 to M do
  begin
    for j:= 1 to N do
    begin
       Total := Total + A[i,j];
    end;//endfor
  end;//endfor
  {
      *Program ini dibuat oleh Bayu Wijaya Permana Putra
  }
  TotalElemen := Total;
end;//endprocedure

procedure Tampil_Total(M,N:integer; A:matriks);
{I.S. : jumlah total elemen matriks A berordo M x N sudah terdefinisi}
{F.S. : Menampilkan jumlah total elemen matriks A}
begin
  gotoxy(28,22);write('Copyright 2013 by @BayuWPP');
  gotoxy(23,23);write('Programmer : Bayu Wijaya Permana Putra');
  gotoxy(1,13);write('Jumlah total elemen matriks adalah ',TotalElemen(M,N,A));
end;//endprocedure

{Program Utama}
begin
     {
      *Program ini dibuat oleh Bayu Wijaya Permana Putra
     }
  Isi_Matriks(M,N,A); {memanggil procedure Isi_Matriks}
  Tampil_Total(M,N,A); {memanggil procedure TampilTotal}
  readln;
end.

Bagaimana mudah kan ?
Alangkah lebih baik jika Anda tidak hanya copy paste source program ini saja, tetapi Anda coba membuat sendiri dari awal, jika menemukan kesulitan barulah Anda menanyakan (boleh bertanya pada saya) dan melihat contoh program.
Demikian artikel tentang bagaimana membuat Program Penjumlahan Seluruh Elemen Sebuah Matrik dengan Menggunakan Bahasa Pascal. Semoga bermanfaat !!!
Keep learn and keep doing !!! Don't stop tying !

Wassalamualaikum Warahmatullahi Wabarakatu