Const k = 13; var a: array[1..k] of integer; i,j: integer; begin write('исходный массив: '); for i: = 1 to k do begin a[i]: =random(21)-10; write(a[i],' ') end; writeln; write(' массив: '); for i: = 1 to k do for j: = 1 to k-1 do if abs(a[j])> abs(a[j+1]) then swap(a[j],a[j+1]); for i: = 1 to k do write(a[i],' '); end.
Киларджиева Диана440
29.11.2022
Мой совет - запомнить как основную формулу для суммы первых n натуральных чисел доказывается она так: записываем те же числа в обратном порядке: и складываем эти равенства таким образом: первое слагаемое с первым, второе со вторым и т.д. поскольку в первой сумме каждое следующее слагаемое на 1 больше предыдущего, а во второй на 1 меньше предыдущего, мы получим сумму одинаковых чисел: слагаемых всего n, поэтому теперь несложно найти сумму первых n четных чисел. можно провести подобную выкладку, а можно свести новую к предыдущей: ответ: