> ----
Vector ----
'); {Виведення ПОВІДОМЛЕННЯ} i>
adr: = 1; {Надаємо змінній adr: = 1 початкова значення. Змінна передбача для фіксування в ній адреси Першого за порядком стовпця матріці з найменшого сумою ЕЛЕМЕНТІВ. Таким чином, надаючі їй значення 1, пріпускаємо что перший стовпець має найменшу суму ЕЛЕМЕНТІВ}
For j: = 2 to n do begin {цикл перебігу матріці по стовпцям. Значення змінної j буде вказуваті адресою стовпчік, что перевіряється. Змінна пріймає Значення від 2 до п.}
sum1: = 0; sum2: = 0; {качан перевіркі шкірного нового стовпчік матріці, тоб после кожної Зміни Значення j зміннім sum1: = 0; sum2: = 0; max: = a [1, adr]; am: = 1 Надаємо початкових значень}
max: = a [1, adr]; am: = 1;
For i: = 1 to n do begin {цикл перебігу j-го стовпчік поелементно, в якому відбувається Утворення сум ЕЛЕМЕНТІВ стовпчіків}
sum1: = sum1 + a [i, adr]; { sum1- сума ЕЛЕМЕНТІВ стовпчік матріці з адресою adr < i align = "justify">}
sum2: = sum2 + a [i, j]; {sum2 - сума ЕЛЕМЕНТІВ j-го стовпчік матріці}
if max {знаходження найбільшого елемента ТА ЙОГО адреси стовпчік матріці з адресою adr} {відбувається порівняння значень ЕЛЕМЕНТІВ стовпчік Зі значень змінної max. І Якщо буде знайдено елемент стовпчік більшій за значеннями від змінної max, то відбувається Надання змінній max Значення цього елемента та фіксування в змінній am адреси цього елемента}
max: = a [i, adr];
am: = i;
end; end;
ifsuml> sum2 {відбувається порівняння значень сум}
then adr: = j; {фіксуємо адресою стовпчік матріці з найменшого сумою ЕЛЕМЕНТІВ}
end; i: = 1 to n do begin {цикл в котрому відбувається Утворення та Виведення ЕЛЕМЕНТІВ вектора} p>
if am mod 2 = 1 {перевіряємо, чи є адреси найбільшого елемента, дере за порядком стовпчік матріці, непарна}
then x [i]: = a [n + li, adr] f { ЯКЩО так то елемент вектора утв...