Какие из циклов не подходят для параллелизации с использованием опции компилятора /Qparallel
do p=1,M A(p,s)=B(s,p+1)*B(p-1,s)*pend do
do j=1,Mj A(j)=(A(j+1)-2*A(j)+A(j-1))*koefend do
do k=1,1000 V(k)=W(k-1)*S(k) R(k)=X(k)**2-S(k-1) end do
do i=1,100do j=1,100 if ((i<50).AND.(j<30)) continue A(i,j)=B(i,j)-C(i,j)end do end do
do sum=sum+A(k) val=val-B(k) if (sum > period) exitend do(Верный ответ)