Pascal

[nes@]

Задан вещественный массив mxn. Увеличить на единицу все отрицательные элементы и уменьшить на единицу все положительные элементы этого массива. Пжста подскажите

[Google2010]

for i:=1 to m do
for j:=1 to n do
if a[i,j]>0 then a[i,j]:=a[i,j]-1
else if a[i,j]<0 then a[i,j]:=a[i,j]+1;

[nes@]

это понятно, но нужно еще ввести условие если = 0

[Google2010]

но нужно еще ввести условие если = 0

а зачем? можно узнать? если про 0 у вас в условии ничего не сказано!