41 lines
898 B
ObjectPascal
41 lines
898 B
ObjectPascal
// Процедура exit выхода из подпрограммы
|
|
const n=10;
|
|
|
|
type IntArr = array [1..n] of integer;
|
|
|
|
procedure FillArrByRandom(var a: IntArr; n: integer);
|
|
begin
|
|
for var i:=1 to n do
|
|
a[i] := Random(10);
|
|
end;
|
|
|
|
procedure PrintArr(const a: IntArr; n: integer);
|
|
begin
|
|
foreach x: integer in a do
|
|
write(x,' ');
|
|
writeln;
|
|
end;
|
|
|
|
function IndexOf(const a: IntArr; n: integer; k: integer): integer;
|
|
begin
|
|
Result := 0;
|
|
for var i := 1 to n do
|
|
if a[i]=k then
|
|
begin
|
|
Result := i;
|
|
exit; // выход из процедуры
|
|
end;
|
|
end;
|
|
|
|
var a: IntArr;
|
|
|
|
begin
|
|
FillArrByRandom(a,n);
|
|
writeln('Случайный массив целых: ');
|
|
PrintArr(a,n);
|
|
|
|
var ind := IndexOf(a,n,7);
|
|
if ind>0 then
|
|
writeln('Индекс первого элемента 7 равен ', ind)
|
|
else writeln('Элемент 7 отсутствует');
|
|
end. |