uses crt;
const n = 4;
type mas = array [1..n, 1..n] of integer;
var a: mas;
max, sum, i,j, n2: integer;
begin
clrscr;
randomize;
{заполняем матрицу и выводим на экран}
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j] := 100+random(20);
write(a[i,j], ' ');
end;
writeln('');
end;
{ищем максимальную сумму}
max := -maxint;
n2 := trunc(n/2);
for j:=1 to n2 do
begin
sum := 0;
for i:=1 to n do
sum := sum + a[i, j*2];
if (sum > max) then max := sum;
end;
{заменяем последний элемент в четном столбце}
for i:=1 to n2 do
a[n, i*2] := max;
{выводим матрицу}
writeln('');writeln('x2');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j], ' ');
end;
writeln('');
end;
repeat until keypressed;
end.