26 lines
432 B
ObjectPascal
26 lines
432 B
ObjectPascal
// Öèêë for. Ïîèñê çíà÷åíèÿ. Îïåðàòîð break
|
|
const n = 10;
|
|
|
|
var
|
|
k: integer;
|
|
found: boolean;
|
|
|
|
begin
|
|
writeln('Ââåäèòå ÷èñëî äëÿ ïîèñêà: ');
|
|
readln(k);
|
|
writelnFormat('Ââåäèòå {0} ÷èñåë',n);
|
|
found := False;
|
|
for var i:=1 to n do
|
|
begin
|
|
var x: integer;
|
|
read(x);
|
|
if x=k then
|
|
begin
|
|
found := True;
|
|
break;
|
|
end;
|
|
end;
|
|
if found then
|
|
writeln('Íàéäåíî')
|
|
else writeln('Íå íàéäåíî');
|
|
end. |