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

[dorofei]

может в этом участке надо описать функцию которою использую,только как это сделать?

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.

[dorofei]

вот что выдает прога
0
0
2
0
pr=true
pr=true
0

[Sweta]

Попробуете вводить массив с клавиатуры. Сможите?

[Sweta]

program dorofei;
function Simple(n: integer):boolean;
var i: integer;
    begin
   if(n>3) then {анализируем число. если оно больше 3, определяем составное ли}
   begin
 for i:= 2 to (n -1) do
 if n mod i = 0 then Simple:=true;{Если переменная делится на i без остатка возвращаем -истину т.е -1,}
exit; {выход, дальше анализировать незачем}
   else Simple:=false;{Если переменная делится на i с остатком возвращаем -ложь т.е -0,}
end
else Simple:=false;{Если число меньше 4 возвращаем -ложь т.е -0, тюк от 0 до 3 не может быть составным}
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
mim:=0
i:=1;
while a[i]<=3
i++
 min:=a[i];      {минимальному присваиваем значение 1-го элемента}

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