Membuat Program Array Tutorial Ke 1 - GLOBAL KOMPUTER TELUK KUANTAN

Berikut rumus membuat program pascal menggunakan array.
Tutorial Ke 1

Program Array1;
Uses crt;
Var x   : array [1..100] of integer;
    n,i :integer;
Begin
Writeln('Program Array');
Writeln('=============');
Writeln;
Write('Masukkan Jumlah Data: ');readln(n);
Writeln;
For i:= 1 to n do
    Readln(x[i]);
Writeln;
Write('Data Yang Telah Dimasukkan: ');
For i:= 1 to n do
    Write(x[i],'   ');
readln;
End.

Semoga bermanfaat, jangan lupa comment nya ya sobat blogger...??