Двумерный массив/Турбо паскаль/нужна помощь=( А(12)Заменить отрицательные элементы стоящие на чётных местах цифрой 8.

А (12) это же одномерный массив! Короче напишу для одномерного.. .

Program a1;
var k: integer; a: array[1..12] of integer;
begin clrscr;
writeln('Vvedite masiv A(12): ');
for k:=1 to 12 do read(a[k]); readln;
for k:=1 to 12 do if not odd(k) then if a[k]<0 then a[k]:=8;
writeln('Novyi masiv: ');
for k:=1 to 12 do write(a[k],' ');
readln
end.

Для двумерного будет так.. . только там как таковых чётный мест нет, но всё же:

Program a2;
var k,y: integer; a: array[1..12,1..12] of integer;
begin clrscr;
writeln('Vvedite masiv A(12x12): ');
for k:=1 to 12 do for y:=1 to 12 do read(a[k,y]); readln;
for k:=1 to 12 do for y:=1 to 12 do if not odd(k) then if a[k,y]<0 then a[k,y]:=8;
writeln('Novyi masiv: ');
for k:=1 to 12 do for y:=1 to 12 do write(a[k,y],' ');
readln
end.

Думаю корректно будет использовать первый вариант, в силу того что не чётко сформулировано условие задачи.
Думаю хоть чем-то помог ;)

условие
if A[ i ] < 0 and i mod 2 = 0

const n=чему хочешь;
var
i,j:integer;
a:array [1..n,1..n] of integer;
begin
for i=1 to n do {i - строка}
for j:=1 to n do {j- столбец}
if (a[i,j]<0 ) and (i mod 2=0) then a[i,j]:=8;
end.