var
i, n, m: integer;
a: array of integer;
begin
write('Размер массива? ');
read(n);
setlength(a, n);
writeln('Введи элементы массива');
for i := 0 to n - 1 do
read(a[i]);
write('Что искать? ');
read(m);
for i := 0 to n - 1 do
if a[i] = m then
begin
write('Найден элемент с номером ', i + 1);
exit;
end;
write('Нет такого элемента');
end.
var count, element: integer;
mas: array [0..19] of integer;
begin
randomize();
for var i:= 0 to 19 do
mas[i] := random(32);
Writeln(mas);
Readln(element);
for var i := 0 to 19 do
if mas[i] = element then
begin
Writeln('Yes');
exit
end;
Writeln('No');
End.
Объяснение:
exit - до выход из процедуры.