В последовательности чисел выдать на печать TRUE, если значение минимального числа меньше заданного числа К.

[Гарри]

Помогите решить:
В последовательности чисел выдать на печать TRUE, если значение минимального числа меньше заданного числа К.

[Stilet]

Ввод последовательности покажешь?

[newerow1989]

const n=10;
      k=3;
var p:array[1..n] of integer;
    i,min:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      p[i]:=Random(21);
      Write(p[i],'  ');
   end;
   Writeln;
   min:=p[1];
   For i:=2 to n do
      If min>p[i] then
         min:=p[i];
   Writeln(min<k);
   Readln;
end.

Сойдет?

[Гарри]

Задача не на использование массивов

[temaps]

var
i,imin,k:integer;
start:boolean;
begin
start:=true;
repeat
readln(i);
if start then
begin
imin:=i;
start:=false;
end
else
begin
if (i<imin) and(i>0) then imin:=i;
end;
until i=0;
writeln('K?');
readln(k);
writeln((k>imin));
end.

[Гарри]

Как остановить ввод последовательности ?

[temaps]

Сообщение от Гарри

Как остановить ввод последовательности ?

Ввести 0. Была же тут задача вводить последовательность до 0 я оттуда и скопировал
http://www.programmersforum.ru/showthread.php?t=284729
Ты же не дал в задании способа ввода. Взял первый попавшийся