Twividroid

Posting sekarang melanjutkan posting sebelumnya tentang array, tetapi kali ini tentang cara membuat program pascal array, langsung saja silakan copas coding di bawah ini dan masukan ke pascal kalian

uses crt;

var

        x :array[1..5] of integer;

        i :integer;

        begin

        clrscr;

                        x[1] := 5;

                        x[2] := 4;

                        x[3] := 3;

                        x[4] := 2;

                        x[1] := 1;

        for i:= 1 to 5 do

        writeln ('Nilai x',i,'adalah:',x[i]);

        readln;

end.

Posted in Pemrograman