Помогите с паскалем. Задан массив А 5х6. Элементы четных строк заменить на 0, а нечетных - разделить на 2

Помогаю: перебирайте массив в двойном цикле и проверяйте четность строки в условном операторе IF, в зависимости от четности выполняйте нужное действие.

for i:=1 to length(s) do
if s='0' then s:='2';

for i:=1 to 5 do
for j:=1 to 6 do begin
if i mod 2 = 0 then A[i,j] = 0
else A[i,j] = A[i,j] / 2;
end;

ps для корректной работы элементы массива должны быть вещественными, иначе ошибки будут. либо деление замените на целочисленной деление div

или округлять: A[i,j] = round(A[i,j] / 2);

Ответ 3, двойное отрицание.

Каков тип элементов массива?
если целый, то как-то так:
for j:=1 to 6 do begin
A[ 1, j ]:=A[ 1, j ] DIV 2;
A[ 2, j ]:=0;
A[ 3, j ]:=A[ 3, j ] DIV 2;
A[ 4, j ]:=0;
A[ 5, j ]:=A[ 5, j ] DIV 2;
end;
Если тип вещественный, то всюду вместо DIV поставь слэш
A[ 1, j ]:=A[ 1, j ] / 2;
и т. д.