Ввести матрицу. Найти сумму четных элементов матрицы. Если она отрицательна, то
заменить элементы четных столбцов матрицы на 1, в ином случае нечетных столбцов
на -1. Матрицу распечатать

не самое лучшее решение, но вот:const    n = 2;    k = 2;var  i,j,s:integer;  a:array[1..n,1..k] of integer;begin    s:=0;  for i:=1 to n do    for j:=1 to k do    begin     Writeln('Введите a[',i,',',j,']:');     readln(a[i,j]);     if a[i,j] mod 2=0 then s:=s+a[i,j];    end;  if s<0 then    for i:=1 to n do     for j:=1 to k do      if j mod 2=0 then       a[i,j]:=1;  if s>=0 then    for i:=1 to n do     for j:=1 to k do      if j mod 2=0 then       a[i,j]:=-1; for i:=1 to n do   begin     for j:=1 to k do   write('a[':4,i,',',j,']=',a[i,j]);   writeln;   end;end.