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.
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.
2 Responses to "Cara menggunakan array versi 3 di program pascal"
Lumayan nih jadi nambah ilmu, terima kasih sob buat share nya.
ok gan, komen jugak ya ke posting atas...
Posting Komentar