Как найти элементы главной диагонали в массиве

Перейти к содержанию

const

    N = 10;

var

    arr: array[1..N,1..N] of integer;

    i,j: byte;

begin

    randomize;

    for i:=1 to N do begin // просто заполнение матрицы

        for j:=1 to N do begin

            arr[i,j] := random(100) - 50;

            write(arr[i,j]:4);

        end;

        writeln;

    end;

    writeln;

    for i:=1 to N do // решение задачи

        if arr[i,i] > 0 then

           write(arr[i,i]:4); 

    writeln;

end.

 -27 -12  37 -33   4 -44  44   5  21 -11

 -46 -18   2   2  31 -36  47 -33 -11  41

 -12  47  41  14  25  26   6  22  49 -48

 -22  -7 -25  49 -13 -26  13  31 -15 -11

  -5  30  31 -26 -48  26  44   1 -49  -4

  22 -49  18 -20  -5 -25   0  -8  16 -19

 -21  -5  30 -14  27 -35 -34  42  39  21

  -2 -24  19 -48 -13   2 -35  44  -1  14

 -47  45 -21  29  17  -9  27 -38  25   7

  47 -20 -45 -22 -36 -43  12   5  40 -22


  41  49  44  25



  


                       
  

#include < stdio.h>

#define N 10

main() {

    int a[N][N], i, j;

    srand(time(NULL));

    for (i=0; i< N; i++) {

        for (j=0; j< N; j++) {

            a[i][j] = rand()%100 - 50;

            printf("%4d", a[i][j]);

        }

        printf("n");

    }

    printf("n");

    for (i=0; i< N; i++)

        if (a[i][i] > 0) {

            printf("%4d", a[i][i]);

        }

    printf("n");

}

from random import random

N = 10

a = []

for i in range(N):

    z = []

    for j in range(N):

        n = int(random() * 100) - 50

        z.append(n)

        print("%4d" % n, end='')

    print()

    a.append(z)

print()

 
for i in range(N):

    if a[i][i] > 0:

        print("%4d" % a[i][i], end='')

print()

алг полож элем диаг

нач

    цел N=10

    цел таб a[1:N,1:N]

    цел i, j

    нц для i от 1 до N

         нц для j от 1 до N

              a[i,j] := int(rand(0,100)) - 50

              вывод a[i,j]:4

         кц

         вывод нс

    кц

    вывод нс


    нц для i от 1 до N

        если a[i,i] > 0 то

            вывод a[i,i], " "

        все

    кц

    вывод нс

кон

N = 10

dim a(N,N)

for i=0 to N-1

    for j=0 to N-1

        a[i,j] = int(rand*100)-50

        print a[i,j]+" ";

    next j

    print

next i

print

 
for i=0 to N-1

     if a[i,i] > 0 then print a[i,i] + " ";

next i

Частным
случаем матрицы является квадратная
матрица,
т.е.
матрица, имеющая одинаковое количество
строк и столбцов (рис.43).

X[1,1]	X[1,2]	X[1,3]
X[2,1]	X[2,2]	X[2,3]
X[3,1]	X[3,2]	X[3,3]

Рис.43

Элементы
матрицы, выделенные на рис.43, называются
главной
диагональю.
Отличительной
особенностью этих
элементов является то, что они имеют
одинаковые
номера строки и столбца.
Поэтому в i-ой
строке индексы элемента
главной диагонали
матрицы Х будут X[i,i].
Для обработки
элементов главной
диагонали
требуется изменять только одну
переменную,
поэтому необходимо всего один
цикл, а не два,
как при обработке
всей матрицы.
На рис.44 показан алгоритм
нахождения суммы положительных
элементов главной диагонали. Ниже
приведён фрагмент
программы к этому алгоритму.

•

• •

S:=0;

for
i:=1
to
N
do

if
X[i,i]>0 then

S:=S+X[i,i];

writeln(‘S=’
, S);

• • •

Рис.44

3.2.6. Обработка элементов побочной диагонали

Побочная
диагональ
(рис.45)
существует только в квадратной
матрице.

X[1,1]	X[1,2]	X[1,3]
X[2,1]	X[2,2]	X[2,3]
X[3,1]	X[3,2]	X[3,3]

Рис.45

Н
етрудно
заметить, что элемент побочной диагонали
матрицы Х в первой строке имеет индексы
Х[1,N],
во второй строке – Х[2, N-1], в третьей –
Х[3, N-2].
Отсюда можно заключить, что в i-ой
строке элемент побочной диагонали будет
иметь индексы Х[I,
N-I+1].

На
рис.46 показан алгоритм нахождения
количества равных
нулю элементов побочной диагонали. Ниже
представлен фрагмент
программы к этому алгоритму.

Рис.46

• • •

К:=0;

for
i:=1
to
N
do

if
X[i,N-i+1] = 0 then

K:=K+1

writeln(
‘K=’ , K) ;

• • •

3.2.7. Обработка элементов квадратных матриц, расположенных над и под главными и побочными диагоналями

На
рис. 47 приведена схема расположения
элементов относительно главной диагонали.

Г


лавная
диагональ (ГД) Элементы,
расположенные над ГД

гд
	Гд
		ГД
			гд

Элементы,
расположенные под ГД

Рис.
47

Рассмотрим
элементы, расположенные над главной
диагональю матрицы. Для матрицы А
размером 4х4 эти элементы будут иметь
следующие индексы:

в
первой строке: A[1,2],
A[1,3],
A[1,4];

во
второй строке: A[2,3],
A[2,4];

в
третьей строке: A[3,4];

в
четвертой строке элементов нет.

Проанализировав
полученные индексы, можно определить,
что для элементов, расположенных выше
главной диагонали, номер столбца всегда
больше номера строки. Поэтому при
организации циклов для обработки этих
элементов нужно учитывать, что в первой
строке нужно рассматривать элементы,
начиная со второго столбца, во второй
строке – начиная с третьего столбца, в
третьей строке – начиная с четвертого
столбца. В общем случае элементы i-ой
строки нужно обрабатывать, начиная с
элемента из i+1
столбца и заканчивая элементом последнего
(N-го)
столбца.

Для
примера рассмотрим алгоритм нахождения
суммы положительных элементов,
расположенных над главной диагональю
(рис.
48).

S:=0;

For
i :=1 to N-1 do

For
j:= I +1 to N do

If
A[I,j]>0 then

S:=S+A[I,j];

Рис.
48

Рассмотрим
элементы, расположенные под главной
диагональю матрицы. Для матрицы А
размером 4х4 эти элементы будут иметь
следующие индексы:

в
первой строке элементов нет;

во
второй строке: A[2,1],

в
третьей строке: A[3,1],
А[3,2];

в
четвертой строке: A[4,1],
A[4,2],
A[4,3].

Проанализировав
полученные индексы, можно определить,
что для элементов, расположенных ниже
главной диагонали, номер столбца всегда
меньше номера строки. Поэтому при
организации циклов для обработки этих
элементов нужно учитывать, что во второй
строке нужно рассматривать элементы
строки, заканчивая элементами из первого
столбца, в третьей строке – заканчивая
элементами из второго столбца, в четвертой
строке – заканчивая элементами из
третьего столбца. В общем случае элементы
i-ой
строки нужно обрабатывать, начиная с
элемента из первого столбца и заканчивая
рассмотрение элементами из i-1
столбца.

Для
примера рассмотрим алгоритм нахождения
произведения отрицательных элементов,
расположенных под главной диагональю
(рис.
49).

P:=1;

For
i :=2 to N do

For
j:= 1 to I-1 do

If
A[I,j]<0 then

P:=P+A[I,j];

Рис.
49

На
рис. 50 приведена схема расположения
элементов относительно побочной
диагонали.

Э
лементы,
Побочная диагональ(ПД)

р

асположенные
над ПД

			пд
		Пд
	Пд
пд

Элементы,
расположенные под ПД

Рис.
50

Рассмотрим
элементы, расположенные над побочной
диагональю матрицы. Для матрицы А
размером 4х4 эти элементы будут иметь
следующие индексы:

в
первой строке: A[1,1],
A[1,2],
A[1,3];

во
второй строке: A[2,1],
A[2,2];

в
третьей строке: A[3,1];

в
четвертой строке элементов нет.

В
общем случае элементы i-ой
строки нужно обрабатывать, начиная с
элемента первого столбца и заканчивая
элементом из N-i
столбца.

Для
примера рассмотрим алгоритм нахождения
количества нулевых элементов, расположенных
над побочной диагональю (рис.
51).

K:=0;

For
i :=1 to N-1 do

For
j:= 1 to N-i do

If
A[I,j]=0 then

K:=K+1;

Рис.51

Теперь
рассмотрим элементы, расположенные под
побочной диагональю матрицы. Для матрицы
А размером 4х4 эти элементы будут иметь
следующие индексы:

в
первой строке элементов нет;

во
второй строке: A[2,4],

в
третьей строке: A[3,3],
А[3,4];

в
четвертой строке: A[4,2],
A[4,3],
A[4,4].

В
общем случае элементы i-ой
строки нужно обрабатывать, начиная с
элемента из столбца под номером N+2-I
и заканчивая элементом из последнего
(N-го
столбца).

Для
примера рассмотрим алгоритм нахождения
максимального среди элементов,
расположенных под побочной диагональю
(рис. 52).

M
AX:=A[2,N];
{за начальное значения максимума берем
любой элемент, расположенный под побочной
диагональю}

For i :=2 to N do

For
j:= N+2-i to N do

If
A[I,j]>MAX then

MAX:=A[I,j];

Рис. 52

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

• #
• #
• #
• #
• #
• #
• #
• #
• #
• #
• #