Тебе на каком языке программирования писать? Могу сказать принцип.
Создаешь массив, сканируешь его. За максимально число берешь первый элемент массива. И если последующий элемент больше первого, то присваеваешь максимальное значение уже ему. И так до конца массива. То же самое проделываешь и с минимумом. Потом просто выводишь на экран значение максимума и минимума
.................,...........
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите число:');
var k:=ReadInteger('Введите величину сдвига десятичной точки:');
a:=a*10**k;
a.Println
end.
<u>Примеры</u>
Введите число: 12345.09876
Введите величину сдвига десятичной точки: -3
12.34509876
Введите число: 345.09876
Введите величину сдвига десятичной точки: 4
3450987.6
Введите число: 12345.09876
Введите величину сдвига десятичной точки: 8
1234509876000
Введите число: 12345.09876
Введите величину сдвига десятичной точки: 15
1.234509876E+19
Введите число: 1.23456789e-10
Введите величину сдвига десятичной точки: -25
1.23456789E-35
Function func32707155(a As Range) As Integer
Dim i, j, odd_num, even_num, min_max(2) As Integer, r As Range
odd_num = Cells(a.Row, a.Column)
even_num = Cells(a.Row + Sgn(a.Rows.Count - 1), a.Column + Sgn(a.Columns.Count - 1))
j = 0
For Each r In a
j = j + 1
i = j Mod 2
min_max(i) = i * Application.max(odd_num, r) + (1 - i) * Application.min(even_num, r)
Next
func32707155 = min_max(1) + min_max(0)
End Function
Excel VBA
Ёмкость кислоты и затем умнодте её на саму себя и получите ответ