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

[Sweta]

Здесь мне уже обьясняли:

Составное число - число, которое не является простым.. т. е. которое делится не только на 1 и на себя самого, но и на какое-либо другое число... выше - правильный вариант программы.. ах, да.. натуральное число...

Кроме этого в теме "Помоготе сзадачей на функцию С++", (где мне обьясняли) есть на С++. На Паскале программы понимаю, но сама писать не могу, так что простите. Могу написать алгоритм, если хотите.

[dorofei]

Спасибо Sweta, но я всё таки хотел бы чтоб кто нибудь из гуру-паскаля подсказал бы, где я ошибся в программе!

[Sweta]

function Simple(n: integer):boolean

- эта функция возвращает ложь, если число составное.
Я бы в этой функции перебирала все значения до n-1, а не до n/2.
У Вас отладчик есть? Попробуйте пройти по шагам с просмотром переменной.

[dorofei]

вот эта программа определяет составное не составное число как видно условие здесь такое же!видимо у меня проблема возникает когда работа идёт с массивом!

program 444;
uses
 Crt;
var
 i, n: longint;
begin
 ClrScr;
 write('Vvedite chislo: ');
 readln(n);
 for i:= 2 to (n div 2) do
  if (n mod i) = 0 then
   begin
    writeln('Chislo ', n, ' sostavnoe');
    readln;
    exit;
   end;
 writeln('Chislo ', n, ' prostoe');
 readln;
end.

[Sweta]

Я не знаю какое там было условие, но по логике необходимо проверить делиться ли заданное число на все числа, предшедствующие ему без остатка, а в данной функции получается, что проверяем до n/2, т. е половину?

[Sweta]

Посмотрите еще здесь:

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

может

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

т.е если число не составное и больше минимального, тогда пусто, иначе ...

[dorofei]

Всё равно выдаёт нули!
Блин где-то косяк не понимаааааааааааааааю!!=(
спасибо Sweta что стараешься помочь!

[Sweta]

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:= true
     else Simple:=false;
     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 (Simple(a[i]) and (a[i] <min)) then
min:=a[i];
 end;
 WriteLn(min);
ReadLn;
end;
end.

Давайте еще попробуем так.

[dorofei]

Не а всё равно выдаёт значение 0 0,
но истина где то рядом)))

[Sweta]

Если еще не надоела еще одна идея
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:= true
 {здесь выйти из подпрограммы, иначе в следующем цикле false}
    else Simple:=false;
     end;
     end;