DECLARE
  TYPE rec IS RECORD(
    id    NUMBER,
    sum1  binary_float := 0,
    sum2  binary_float := 0,
    sum3  binary_float := 0,
    sum4  binary_float := 0,
    sum5  binary_float := 0,
    sum6  binary_float := 0,
    sum7  binary_float := 0,
    sum8  binary_float := 0,
    sum9  binary_float := 0,
    sum10 binary_float := 0,
    sum11 binary_float := 0,
    sum12 binary_float := 0,
    sum13 binary_float := 0,
    sum14 binary_float := 0,
    sum15 binary_float := 0,
    sum16 binary_float := 0,
    sum17 binary_float := 0,
    sum18 binary_float := 0);
  TYPE t_rec IS TABLE OF rec INDEX BY PLS_INTEGER;
  TYPE tt_rec IS TABLE OF t_rec INDEX BY PLS_INTEGER;
  arm  tt_rec;
  ar t_rec;
  PROCEDURE plus(ar IN OUT t_rec, i NUMBER, arp tt_rec, j NUMBER) IS
  BEGIN
    ar(i).sum1 := ar(i).sum1 + arp(j)(i).sum1;
    ar(i).sum2 := ar(i).sum2 + arp(j)(i).sum2;
    ar(i).sum3 := ar(i).sum3 + arp(j)(i).sum3;
    ar(i).sum4 := ar(i).sum4 + arp(j)(i).sum4;
    ar(i).sum5 := ar(i).sum5 + arp(j)(i).sum5;
    ar(i).sum6 := ar(i).sum6 + arp(j)(i).sum6;
    ar(i).sum7 := ar(i).sum7 + arp(j)(i).sum7;
    ar(i).sum8 := ar(i).sum8 + arp(j)(i).sum8;
    ar(i).sum9 := ar(i).sum9 + arp(j)(i).sum9;
    ar(i).sum10 := ar(i).sum10 + arp(j)(i).sum10;
    ar(i).sum11 := ar(i).sum11 + arp(j)(i).sum11;
    ar(i).sum12 := ar(i).sum12 + arp(j)(i).sum12;
    ar(i).sum13 := ar(i).sum13 + arp(j)(i).sum13;
    ar(i).sum14 := ar(i).sum14 + arp(j)(i).sum14;
    ar(i).sum15 := ar(i).sum15 + arp(j)(i).sum15;
    ar(i).sum16 := ar(i).sum16 + arp(j)(i).sum16;
    ar(i).sum17 := ar(i).sum17 + arp(j)(i).sum17;
    ar(i).sum18 := ar(i).sum18 + arp(j)(i).sum18;
  END;
BEGIN

  -- Инициализация
  FOR i IN 1 .. 260 LOOP
    ar(i).id := i;
    FOR j IN 1 .. 17 LOOP
      arm(j)(i).id := j + i;
    END LOOP;
  END LOOP;

  -- Этот код выполняется 2,5 секунды
  FOR i IN 1 .. 260 LOOP
    FOR j IN 1 .. 17 LOOP
      plus(ar, i, arm, j);
    END LOOP;
  END LOOP;

END;

  PROCEDURE plus(ar IN OUT t_rec, i NUMBER, arp tt_rec, j NUMBER) IS