Какие из циклов не подходят для параллелизации с использованием опции компилятора /Qparallel
do k=1,1000 R(k)=W(k)-A(k-1) A(k+1)=A(k)*A(k+1)end do(Верный ответ)
do j=1,100do k=1,200do i=1,100 A(i,k,j)=B(i,k,j)+C(j,k,i)end doend doend do
do j=1,Mj C(j)=C(j-1)*C(j+1)end do(Верный ответ)
do j=1,100 A(i,2)=B(2,i)*C(i,2)end do
do if (A(s)<eps) exit A(s)=A(s)*A(s-1)end do(Верный ответ)