*****Selamat Datang Di Blog Manajement Informatika Polibisnis Perdana Mandiri*****
*****Jangan lupa untuk memberi kritik dan saranya!!!*****

Minggu, 17 Juli 2011

Contoh Array 1 Dimensi


program array_1_dimensi;
uses crt ;
var 
   A:array[1..3] of integer;
   i,total    : integer;
   kali      : Real;
begin
     clrscr;
     for i:=1 to 3 do
     begin
      write('masukan A ke-',i,':');readln(A[i]);
     end;
    
     kali := 1;
     for i:=1 to 3 do
     begin
                total:=total+A[i];     
                kali:=kali*A[i];
     end;
     writeln('Total = ',total);
     writeln('Kali = ',kali:0:0);          
end.

Tidak ada komentar:

Poskan Komentar