DIMENSION A(3,5),B(5,3)

DO 11 L=1,5

DO 11 K=1,3

11 B(L,K)=A(K,L)

6). Найти сумму элементов массива, находящихся под главной диагональю, включая элементы, лежащие на диагонали.

S=0.

DO 15 I=1,3

DO 15 J=1,IВнутренний цикл изменяется от 1 до I

15 S=S+A(I,J)

7). Найти сумму элементов, находящихся на главной диагонали

S=0.

DO 16 I=1,3

16 S=S+A(I,I)Следует обратить внимание что, первый и второй индексы могут быть одинаковыми.

Так как элементы, лежащие на главной диагонали, всегда имеют одинаковые номер строки и номер столбца, то достаточно сделать изменение номера строки и номера столбца по одному циклу (будут анализироваться элементы А(1,1), А(2,2) и т.д.).

8). Вычислить произведение всех элементов, за исключением тех, что стоят под побочной диагональю и на диагонали.

PR=1.

DO 12 I=1,3

Цикл, в котором изменяется номер строки

D0 12 J=1,5-I

Цикл, в котором изменяется номер столбца (если в произведение включить побочную диагональ, то J=1,6–I).

12 PR=PR*A(I,J)

9). Найти количество положительных элементов каждого столбца массива. Все эти значения записать в отдельный массив.

Решение: во внутреннем цикле, в котором будет осуществляться перебор номеров строк, будет подсчитываться количество положительных элементов. Количество этих циклов – 3. Внешний цикл будет повторяться 5 раз, а внутри этого цикла будут осуществляться операции по нахождению количества элементов в каждом столбце.