Pascal : Contoh program mencari bilangan prima

Dibawah ini adalah contoh program untuk

mencari bilangan prima 1 sampai 

100 menggunakan array

Program Bilangan_Prima_Array;
Uses Crt;
Var
  Prima : Array[1..100] of Integer;
  i,j : Integer;
  bilangan : Integer;
Begin
  ClrScr;
  For i := 2 to 100 Do
  Begin
    Prima[i]:=i;
    For j:= 2 to i-1 Do
    Begin
      bilangan := (i mod j); 
      If bilangan = 0 then Prima[i]:=0; 
    End;
    If Prima[i] <> 0 Then Write(Prima[i],' ');
  End;
  Readln;
End.

Tags : Pascal, program pascal, 

bilangan prima, prima, array, 

bilangan array prima,