Простые числа

[kuy]

Здравствуйте, помогите с задачей пожалуйста:
Задан массив из 10ти положительных чисел, нужно вывести только простые числа.
Мне нужна функция, которая будет вычислять является ли число простым.

[Alex11223]

А проблема в чем? Самый простой алгоритм: цикл от 2 до sqrt(число) и проверять в нем — если остаток от деления числа на счетчик цикла = 0, то оно не простое (отметить это с помощью переменной типа boolean, например).

[hon]

   function checksimple(i: integer): boolean;
   var j:integer;
   begin
        for j:=2 to i-1 do
            begin
            if i mod j=0 then
               begin
               result:=false;
               Exit;
               end;
            end;
        result:=true;
   end;

[Serge_Bliznykov]

Hon, ну ОЧЕНЬ неоптимально (и есть небольшие косячки с возможными некорректными данными)...

я бы предложил такой вариант:

function isPrime(X: LongInt): 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;

[Вадим Мошев]

Кстати, на форуме уже много раз предлагался алгоритм установления простого числа, представленный Сергеем (Serge_bliznykov), надо было вопользоваться поиском по форуму, поскольку, повторюсь, обсуждался он неоднократно.