Saindra Santyadiputra

PASCAL CODE :

program ContohArray;

uses
WinCrt;

var
larik: array[1..10] of integer;
i: integer;

begin

larik[3]:=45;

{Writeln(larik[1]);
Writeln(larik[5]);
Writeln(larik[2]);}

larik[5]:=50;

{Writeln(larik[3]+larik[5]);}

i:=1;

for i:=1 to 10 do
Writeln('Larik ke [',i,'] nilainya ',larik[i]);

end.



OUTPUT :

Larik ke [1] nilainya 0
Larik ke [2] nilainya 0
Larik ke [3] nilainya 45
Larik ke [4] nilainya 0
Larik ke [5] nilainya 50
Larik ke [6] nilainya 0
Larik ke [7] nilainya 0
Larik ke [8] nilainya 0
Larik ke [9] nilainya 0
Larik ke [10] nilainya 0