Определи сумму двух наибольших элементов массива arr. first; var i: integer; const arr: array [1…10] of integer = (-4, 2, 4, 1, 6, 10, -5, 9, 15, 3); begin for i := 1 to 10 do if arr(i] > 0 then arr(i] := -1* arr(i) + 5 else arr[i] := -2 * arr(i] + 3; for i := 1 to 10 do write(arr(i],"); end.

Необходимо определить сумму двух наибольших элементов массива arr. В данном коде элементы массива, которые больше нуля, изменяются на отрицательное число, умноженное на -1 и увеличенное на 5, а элементы, меньшие или равные нулю, изменяются на отрицательное число, умноженное на -2 и увеличенное на 3. Далее выводятся все элементы массива. В условии не подсчитывается сумма наибольших элементов.