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

Question

Людмила Фёдорова · Accepted Answer

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

Алексей Васильев · Answer

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

Екатерина Власова · Answer

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);

Елена Кутузова · Answer

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

Тема Галий · Answer

Каков тип элементов массива? 
если целый, то как-то так: 
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; 
и т. д.