Question

Contoh penggunaan program array dimensi 3 dalam pascal?

Answer 1

Program array3Dl
uses crt;

const
baris = 2;
kolom = 4;

var 
arr : array[1..baris,1..kolom] of integer;
i,j : integer;

begin
       for i := 1 to baris do
       begin
                for j := 1 to kolom do
                begin
                         arr[i,j] := random(100);
                end;
       end;
     
      for i :=1 to barid do
      begin 
             for j := 1 to kolom do
             begin
                      write(arr[i,j],'          ');
            end;
            writeln;
      end;
      readln;
end.