Const n = 10; var a: array[1..n] of integer; i, j, t: integer;
begin Randomize; Writeln('Исходный массив'); for i := 1 to n do begin a[i] := Random(16)-10; Write(a[i]:4) end; Writeln; for i := 1 to n-1 do for j := 1 to n-i do if a[j] > a[j+1] then begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end; Writeln('Отсортированный по возрастанию массив'); for i := 1 to n do Write(a[i]:4); Writeln end.
Примем A3 за х , тогда формула будет выглядеть следующим образом (+ подставляем имеющиеся значения): (2х-5)*8=40 делим обе части уравнения на 8 , тогда 2х-5=5 2х=10 х=5 Ответ : 5