«Смотри внутри» . Паскаль! Нужно создать двухмерный массив по формуле, и заменить отрицательные положительными.

Question

Толибек Эшонкулов · Accepted Answer

где формула-то? 
 
типа этого 
for i:=imin to imax do for j:=jmin to jmax do 
 begin 
 y[i,j]:=i+j-j*j;{ваша формула} 
 if y[i,j]<0 then y[i,j]=-y[i,j]; 
 end 
 
можно вначале вычислять временную переменную ytemp вместо y[i,j], потом в конце цикла писать y[i,j]=ytemp;