Part 12: Program Array

uses wincrt;
var
h,i,j,jmk,jmb,baris,kolom,a1,a2,a3,b1,b2,b3:integer;
x:array[1..4,1..4] of integer;
lagi:char;
begin
lagi:='y';
while (lagi='y') or (lagi='Y') do
begin
clrscr;

write('banyak baris (maks=3): ');readln(baris);
write('banyak kolom (maks=3): ');readln(kolom);
writeln;
for i:=1 to baris do
begin
for j:=1 to kolom do
begin
write('indeks(',i,',',j,')= ');readln(x[i,j]);
end;
writeln;
end;
{cetak element dalam matrik}
writeln('matrik: ');
for i:=1 to baris do
begin
for j:=1 to kolom do
write(x[i,j]:4);
writeln;
end;
writeln ('hasil penjumlahan vertikal pertama = ');
writeln ('hasil penjumlahan vertikal ke dua = ');
writeln ('hasil penjumlahan vertikal ke tiga = ');
writeln ('hasil penjumlahan horizontal pertama= ');
writeln ('hasil penjumlahan horizontal ke dua = ');
writeln ('hasil penjumlahan horizontal ke tiga= ');
writeln('==================================');
write('Coba lagi[Y/N]:');readln(lagi);
clrscr;
end;
end.

Hasil :