Program Jumlah_Elemen_Matriks; ( Algoritma dan Pemograman )

Program Jumlah_Elemen_Matriks;
uses crt;
 type
 matriks = array [1..50,1..50] of integer;
var
a          : matriks;
x,y,jumlah : integer;

procedure isi_matriks(var x,y : integer; var A : matriks);
var
i,j : integer;
begin
clrscr;
gotoxy(25,2);writeln('Menjumlahkan Elemen Matriks');
gotoxy(25,3);writeln('---------------------------');
gotoxy(25,4);write('Banyak Baris dan Kolom : ');readln(x);
gotoxy(25,5);write('Banyak Baris dan Kolom : ');readln(y);
window(25,9,51,17);textbackground(2);clrscr;
  textcolor(15);
  for i := 1 to x do
  begin
    for j := 1 to y do
      begin
        gotoxy(j*5,i+2);readln(A[i,j]);
      end;
    end;
  end;

procedure jumlah_matriks (x,y : integer; A : matriks; var jumlah : integer);
var
  i,j : integer;
begin
jumlah := 0;
i := 1;
for i:=1 to x do
for j:=1 to y do
jumlah := jumlah + a[i,j];
end;

procedure Tampil_hasil(jumlah : integer);
begin
window(21,7,55,7);textbackground(9);clrscr;
  textcolor(15);write('Jumlah Elemen Matriks Adalah : ', jumlah);
  end;

begin
  Isi_matriks(x,y,A);
  jumlah_matriks(x,y,A,jumlah);
  Tampil_hasil(jumlah);clreol;
readln;
end.