Cara menggunakan array versi 3 di program pascal

uses wincrt;
var
I : integer;
X : array [1..5] of integer;
begin
writeln ('Masukkan 5 buah bilangan integer !');
for I := 1 to 5 do
    begin
    write ('Blangan ke-',I,' : ');

    readln (X[I])
    end;
    writeln;
    writeln ('Hasil Leluaran : ');
    for I := 1 to 5 do
        writeln ('Bilangan ke-',I,':',X[I]);
end.

You May Like :

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn