В массиве А(100) найти простые числа.

[olegk95]

В массиве А(100) найти простые числа. Паскаль, программа.

[ZX Spectrum-128]

http://www.programmersforum.ru/showthread.php?t=250127

[Serge_Bliznykov]

function isPrime(X:integer): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

const N = 100;
var A : array[1..N] of integer;
  i : integer;
begin
   ввод массива A

   for i:=1 to N do 
     if  isPrime(A[i]) then Write(A[i],' ');
end.