исправить блок-схему (Фортран)

[ekaterinabru]

Исправьте, пожалуйста, ошибку в блок-схеме

условие задачи
Вычислить в таблице произведение ненулевых чисел каждой  строки и выбрать из них наибольшее. Вывести выбранное произведение на экран и в файл результатов с указанием номера соответствующей строки.
сама блок-схема в прицепе

[Selyd]

А нельзя .doc
Я не читаю.

[ekaterinabru]

файл загружен вордовским документом, неужели не читается? странно.
попробуйте сейчас

[tig81]

файл загружен вордовским документом

Версии ворда бывают разные

[ekaterinabru]

последний файл загрузила в 97-ом, должео открыться

[Selyd]

1. Я бы выделил одномерный массив Р, где будут произведения.
2. Все элементы могут быть нули, тогда произведение не существует.
3. Все произведения могут получиться отрицательными и тогда то отсутствие
    произведения стаёт у вас MAX=0.
4. Отдельный массив Р сохраняет Вам и место MAX.
5. Поиск MAX в отдельном цикле. Номер надо запоминать.
6. Поскольку произведение быть нулём не может, то при поиске нуль надо пропускать.
   Он не претендент. Но тогда на место первого претендента перед вторым циклом надо поставить первое не равное нулю произведение. Это будет урезаный цикл с условным выходом, когда наткнемся на не нуль.
Первый цикл считает произведения
Второй цикл ищет претендента на MAX и его номер (Первое значение поставить не можем, а вдруг оно нуль)
Третий цикл ищет MAX и его номер
Перевод человеческого языка на алгоритмический. Удачи.

[ekaterinabru]

огромное спасибо!
когда сделаю, пришлю свою новую блок-схему на проверку

[ekaterinabru]

для массива, в который будут помещаться произведения элементов каждой строки, создать отдельный файл?

[Selyd]

Привет!
Заговорился.
А ничего не надо. За номером вытащить строку.

[ekaterinabru]

Здравствуйте, подкорректируйте, пожалуйста, мою блок-схему.

[Selyd]

Циклов три.

[ekaterinabru]

благодарю