Oke teman teman kali ini saya akan membuat proggram sederhana Array 1 Dimensi dengan menggunakan perulangan For, bagaimana codingannya ?? Silakan dipahami dan dipelajari :
Program Array 1 Dimensi dengan perulangan For
program
arrayfor;
uses
crt;
var
a : array[1..10] of integer;
i,j : integer;
begin
clrscr;
j:=2;
for i:=1 to j do
begin
write('Masukan Data ',i,' : ');
readln(a[i]);
end;
writeln('Data 1 : ', a[1]);
writeln('Data 2 : ', a[2]);
writeln('Data 1 + Data 2 : ',a[1] + a[2]);
readln;
end.
Output :
Silakan dicoba dan semoga bermanfaat
jangan lupa like komen untuk mendukung mimin agar update terus setiap hari dan bisa menjawab pertanyaan kalian semua
Terimakasih .