Program Array 1 Dimensi dengan perulangan For

Assalamualaikum Wr.Wb

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 .