Вывести на экран минимальное значение среди составных чисел массива.

[dorofei]

Вводится размер одномерного массива A(N) и его элементы. Вывести на экран минимальное значение среди составных чисел массива.
Заранее спасибо вам доброжелатели))

[Stilet]

составных чисел массива.

Энто что за звЭрь?

[DM_bite]

Энто что за звЭрь?

Что такое составное число? О_о

Помогите решить задачку (массив)

Была такая задача, сам её решал лично кому-то.Так что поиск рулит.

[Stilet]

Что такое составное число? О_о

Ну да... Ну не математик я. не математик )

Ну вот заглянул в Википедию... Там есть условие которое показывает простое это число или нет... Вот можно его взять на
вооружение.
http://ru.wikipedia.org/wiki/Простое_число

Всякое простое число, большее 3, представимо в виде 6k + 1, или в виде 6k − 1, где k - некоторое натуральное число.

[dorofei]

Искал но так ничего и не нашёл!=(Может реально руки корявые=(

[dorofei]

Вопрос всё ещё актуален!Начал думать и анализировать с тройной силой=)
В общем так число является составным если у него больше двух делителей например 4 -составное (4/1,4/2,4/4), а три-простое (3/1,3/3).
вот как определить простое я знаю

var 
d: integer; { очередной делитель }
function isPrime ( n: integer): boolean;
begin  
      d:=2;  
       while n mod d <> 0 do d:= d+l;
       isPrime: = (d=n)
   end.

или как нашёл тут на сайте

PHP код:

function Simple(n: integer):boolean;
var i: integer;
    begin
    for i:= 2 to (n div 2) do
     begin
     if n mod i = 0 then Simple:= false
     else Simple:=true;
     end;
     end; 


а как быть с составным(((
Я конечно понимаю что как то с точностью наоборот чем с простым!
Спасибо за помощь!

[DM_bite]

Пробегаешь циклом по массиву и сравниваешь с минимумом

if not (Simple(a[i])) and (a[i]<min) then
 begin
 min:= a[i];
 end;

где a[i] - элемент массива, min - минимум. Что трудного?

[dorofei]

я тут навоял, но что то ничего не получается(((

program dorofei;
function Simple(n: integer):boolean;
var i: integer;
    begin
    for i:= 2 to (n div 2) do
     begin
     if n mod i = 0 then Simple:= false
     else Simple:=true;
     end;
     end;
const n=10;
var a:array [1..n] of integer;
 min,i: integer;
begin
min:=1;
for i:= 1 to n do
 begin
 a[i]:= random(n);
 WriteLn(a[i],'__');
 if not  (simple(a[i]) and not (a[i] <min)) then;
begin
min:=a[i];
 end;
 WriteLn(min);
ReadLn;
end;
end.

но он чё то совсем не то выдаёт!!=( где ошибся?

[Кириллович]

"Составных чисел массива" - это означает "чисел, составляющих массив".
Я так думаю!..
Обычные люди пишут задания, ну не всем хватает грамотности употребления и точности изложения.

[dorofei]

именно Составных чисел (имеющих более 2 делителей), а не чисел составляющих массив!