SQL> Create Table tb_delete
  2  (
  3  Id Number
  4  );

Table created.

SQL> Declare
  2  Begin
  3    For i In 1 .. 1000 Loop
  4      Insert Into Tb_Delete Values (i);
  5    End Loop;
  6  End;
  7  /

PL/SQL procedure successfully completed.

SQL> commit;

Commit complete.

SQL> Select Sid From v$mystat Where Rownum<=1;

       SID
----------
        15

SQL> Delete tb_delete Where Id=1;

1 row deleted.

SQL> Select Type,lmode
  2  From v$lock Where Sid=15;

TY      LMODE
-- ----------
AE          4
UL          4
TO          3
TM          3
TX          6