Файл: Задача Упаковка коробок ограничение по времени на тест 1 секунда ограничение по памяти на тест 256 мегабайт ввод.docx
Добавлен: 11.12.2023
Просмотров: 62
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
swap(a[i,1],a[i+1,1]);
swap(a[i,2],a[i+1,2]);
end;
sum:=0;
i:=10;k:=1;
for i:=10 downto 2 do begin
sum:=sum+a[i,1]*k;
k:=k+1;
end;
write(sum);
END.