Cara mendeklarasikan array berdimensi satu
NamaTipe = ARRAY[TipeOrdinal] OF TipeElemenContoh array untuk menampilkan bilangan yang dijumlahkan:
uses wincrt;
type Bilangan = Array [1..5] of integer;
var DafBil : Bilangan;
i, jml : Integer;
begin
for i:= 1 to 5 do
begin
write ('bilangan ke-',i,' = ');
read (DafBil[i]);
end;
jml :=DafBil[1]+DafBil[2]+DafBil[3]+DafBil[4]+DafBil[5];
writeln(DafBil[1],'+',DafBil[2],'+',DafBil[3],'+',DafBil[4],'+',DafBil[5],'=',jml);
end.
0 Comments
Apa komentar kamu tentang artikel ini?