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

заменить элементы четных столбцов матрицы на 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.