--lua
log 'mode compact' log 'clear'

local s1slot = "Картофель"
local s2slot = "Морковь"
local s3slot = "Брюква"
local s4slot = "Морковь"
local s5slot = "Брюква"

local r1slot = 17
local r2slot = 5
local r3slot = 100
local r4slot = 21
local r5slot = 24

arr = {
{s1slot, r1slot},
{s2slot, r2slot},
{s3slot, r3slot},
{s4slot, r4slot},
{s5slot, r5slot}
}

-- далее действия
local arrRes={}  -- Инициализация результирующего массива
for i=1,#arr do  -- Цикл анализа исходного массива от начала до конца
  local resultFind1=false  -- Объявление и инициализация флага признака уже имеющегося 1-го элемента (сброс)
  for j=1,#arrRes do       -- Цикл анализа результирующего массива
    if arr[i][1]==arrRes[j][1] then  -- Если первые элементы двух массивов идентична
      resultFind1=true               -- установка флага признака уже имеющегося 1-го элемента
      arrRes[j][2]=arrRes[j][2]+arr[i][2]  -- Увеличение элемента результирующего массива 2-го уровня
    end
  end
  if not(resultFind1) then          -- Если первого элемента в результирующем массиве не было
    arrRes[#arrRes+1]={}            -- Добавление нового элемента результирующего массива
    arrRes[#arrRes][1]=arr[i][1]
    arrRes[#arrRes][2]=arr[i][2]
  end
end
for i=1,#arrRes do
  log(arrRes[i][1],arrRes[i][2])
end