Объясняю: создаёте переменную, лучше целочисленную (int foo), после чего можно либо перевести число в строку и найти сумму цифр путём сложения двух символов (sum = bar[0] - '0' + bar[1] - '0'), либо с остатка от деления (конечно, это не очень красиво, но если известно, что число двузначное, то можно так: sum = (foo / 10) + (foo % 10)). Дальше банальная обработка условия: <если сумма чётная (if (sum % 2 == 0)), то увеличить число на 2 (foo += 2), иначе (else) уменьшить число на 2 (foo -= 2)>. После этого можете вывести результат на монитор (printf("%d\n", &sum)). :)
const n=5;
var
a:array [1..n,1..n] of integer;
i,j,k:integer;
begin
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(151)-50;
write(a[i,j]:4);
if (a[i,j] mod 5 =0) then
inc(k);
end;
writeln;
end;
writeln;
if k<>0 then
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[i,j]=k then a[i,j]:=0;
write(a[i,j]:4);
end;
writeln;
end;
writeln('K= ',k);
end
else
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=0;
write(a[i,j]:4);
end;
writeln;
end;
writeln('K= 0');
end;
end.