create or replace package test_pkg is
type t_assoc_array_c1 is table of t1%rowtype
index by binary_integer;
la_array t_assoc_array_c1;
procedure p(i_a in t_assoc_array_c1, x1 out number, x2 out number);
end test_pkg;

create or replace package body test_pkg is
procedure p(i_a in t_assoc_array_c1, x1 in out number, x2 in out number) is
begin
for i in 1 .. i_a.count
loop
x1:=(i_a(i).a + i_a(i).b + i_a(i).c);
x2:=(i_a(i).a + i_a(i).b - i_a(i).c);
end loop;
end p;
end test_pkg;
/

declare
la_array test_pkg.t_assoc_array_c1;
x1 number;
x2 number;
begin
select * bulk collect into la_array from t1;
test_pkg.p(la_array, x1, x2);
dbms_output.put_line('x1='||x1);
dbms_output.put_line('x2='||x2);
end;
/