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

[Sweta]

Ну и что имеем? Похоже?
program dorofei;

function Simple(n: integer):boolean;
var i: integer;
    begin
    for i:= 2 to (n -1) do
     begin
     if n mod i = 0 then 
     begin
     Simple:= true
     exit;
     end;
     else Simple:=false;
     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.

И еще, если ввести в программу определения составного числа -5, то она определит его как составное, а 6 - не составное, поэтому цикл д.б. по n-1 включительно.

[dorofei]

Не а что то тут не то!Условие Составных чисел было до этого правильно косяк во второй части на мой взгляд где min определяется!

[Sweta]

Тогда попробуйте выводить на экран все свои данные
n в Simple
значение Simple, т.е поставьте где только можно печать.
Если сами не разберетесь и никто не поможет, результат выполнения,(сделай PrtSc) прикрепи сюда.
Посмотрю часа в 18.

[dorofei]

program dorofei;
function Simple(n: integer):boolean;
var i: integer;
    begin
    for i:= 2 to (n div 2) do
 if n mod i = 0 then Simple:= false
   else Simple:=true;
end;
const n=10;
var a:array [1..n] of integer;
 min,i: integer;
begin
min:=1;
for i:= 2 to n do
 begin
 if not  (simple(a[i])) and (a[i] <min) then(вот здесь не понятно как-то)
min:=a[i];
 end;
 WriteLn(min);
ReadLn;
end.

теперь оно выводит что min=1,т.е. наскольео я понял не связывает никак два параметра чтоб число было составным и минимальным из составных!(((((((

[Sweta]

А где заполнение массива?
Тебе обязательно через функцию определять составное число?

[dorofei]

Нет конечно ограничений в решение нет,главное решить задачу:
Вводится размер одномерного массива A(N) и его элементы. Вывести на экран минимальное значение среди составных чисел массива.
ПРосто нашёл на форуме что то похожее и стал под себя точить!

[Sweta]

Давайте по порядку.

[dorofei]

В смысле ВЕСь массив??

[Sweta]

program dorofei;
function Simple(n: integer):boolean;
var i: integer;
    begin
    for i:= 2 to (n -1) do
 if n mod i = 0 then Simple:=true;{Если переменная делится на i без остатка возвращаем -истину т.е -1,}
exit; {выхоl, дальше анализировать незачем}
   else Simple:=false;{Если переменная делится на i с остатком возвращаем -ложь т.е -0,}
end;




const n=3;
var a:array [1..n] of integer;
 min,i: integer;
begin
for i:= 1 to n do          {при изменение i от 1 до n, } 
begin
a[i]:= random(n);       {формируем массив }
WriteLn(a[i],'__');     {и выводим данные, при заданном n=3 д.б 3 числа}
end

 min:=a[1];      {минимальному присваиваем значение 1-го элемента}
for i:= 2 to n do
 begin
WriteLn('pr='simple(a[i])); {Выводим что получили при анализе}
 if (simple(a[i])) and (a[i] <min) then{если при вызове фенкции получили 1 и очередной элемент масссива меньше определенного минимума, то минимальному присваеваем его значение}
min:=a[i];
 end;
 WriteLn(min);
ReadLn;
end.

[Sweta]

Напишите, что получается при выполнении, все коды.