Program Contoh Array
Program Contoh Array
Program contoh_array;
uses wincrt;
var
x:array[1..10] of integer;
i,jum,n : integer;
begin
clrscr;
jum:=0;
write('Masukkan data =');readln(n);
for i:= 1 to n do
begin
write('Data ke-',i ,'=');readln(x[i]);
jum:=jum+x[i];
end;
writeln('Jumlah = ',jum);
end.
