Задача в Fortran

  • Автор темы 9zz
  • Дата начала
9
#1
Помогите пожалуйста составить блок-схему к задаче и решить саму задачу Fortran:

Даны логический вектор а (а1,а2,...,а100) и вещественное х.Вычислить y=x**k,где k-число компонент вектора а,предшествующих первой по порядку компоненте,имеющей значение .FALSE. (если все компоненты имеют значение .TRUE. ,то принять k=100)

Пытался решать сам,но препод говорит что решение неправильное...
Очень надеюсь на помошь,заранеее спасибо.