Пожалуйста помогите решить задачку на Turbo Pascal-е

[Лешийййй]

если нетрудно решите задачку, я сам деревянный поэтой теме

Задача:
Решить задачу используя подпрограмму:
Для произвольной матрицы А(N,M) сформировать одномерный массив В, каждый элемент которого с номером К равен произведению суммы элементов k-й строки и произведению элементов k-го столбца. Если каждый элемент получится нулевым, то вывести на экран сумму по строке и произведение по столбцу.

заранее спасибо

[Romeo]

Предлагаю перенести тему в "Решите мне задачку".

[Alvaros]

ан массив a(8,8). условие: если главная диагональ положительна, то обнулить все элементы.
помогите
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Мой вариан здесь, но он плохо работает

[Хыиуду]

Alvaros, а выложить текстом что не позволяет? Блокнот открывает файлы .pas за милую душу.