как в фортране определить каким в массиве по счёту идёт элемент. даны целые числа а, n,X1,X2...,Xn

проще.
do i = 1, n
if (x(i) .eq. a) exit
end do
if (i== n+1) then
print *, "not found"
else
print *, "found at", i
end if
PS Замятину. Будешь удивлён, но в научных расчётах фортран до сих пор рулит. Интел регулярно выпускает новые версии компилятора, а сообщество разрабатывает новые стандарты. Последний Фортран2008. А вот на паскале серьёзные пректы почти не встречаются и используется в РФ лишь для обучения

Это где в какой такой стране работают еще на ФОРТРАНЕ.
Да, Егор. СЛОЖНО ТЕБЕ БУДЕТ.
В ПАСКАЛЕ или ДЕЛЬФИ это выглядело бы так.
Какой элемент, например B:=10;
пишешь
for i:=1 to n do begin
if X = B then begin
writeln(i::2,' элемент равен ',B^2);
end; { if}
end; { i }

АТАСС УТОПИЯ.

program q82272766
    integer :: a, n, p, i
    integer, allocatable :: x(:)
    print *, "a n?"
    read *, a, n
    allocate(x(n))
    print *, "x values?"
    do i = 1, n
        read *, x(i)
    end do
    p = 0
    do i = 1, n
        if (x(i) .eq. a) then
            p = i
            exit
        end if
    end do
    if (p .eq. 0) then
        print *, "not found"
    else
        print *, "found at", p
    end if
    deallocate(x);
end program q82272766