2), 4)

const
   minvalue = -maxint-1;
var
   i, j, n: integer;
   max: array[1..100] of integer;
   A: array[1..100, 1..100] of integer;
   x: array[1..100] of integer;
begin
   readln(n);
   for i:= 1 to n do
      max[i] := minvalue; // инициализируем массив максимальных значений
   for i:= 1 to n do
      x[i] := minvalue; // инициализируем массив компонентов вектора
   for i:= 1 to n do
      for j:= 1 to n do
         readln(A[i, j]); // инициализируем массив А
   for j:= 1 to n do
      for i:= 1 to n do
         if max[j] < A[i, j] then
            max[j] := A[i, j];
   for j:= 1 to n do
      for i:= 2 to n - 1 do
         if (A[i - 1, j] = A[i, j]) or (A[i, j] = A[i + 1, j]) then
            x[j] := max[j]; // находим максимальный элемент по каждому столбцу и записываем в компонент
   for i:= 1 to n do
      if x[i] = minvalue then
         x[i] := 1;
   write('Массив А: ', chr(10));
   for i:= 1 to n do begin
      if i > 1 then write(chr(10));
      for j:= 1 to n do
         write(A[i, j], ' ');
   end;
   write(chr(10), 'Вектор x: ', chr(10));
   write('( ');
   for i:= 1 to n do
         write(x[i], ' ');
   write(')');
end.