Квадратная матрица (массив) Учитель МОБУ СОШ 2 с. Исянгулово Шадрина О.М.

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

Главная диагональ if i=j then

Для элементов, расположенных выше главной диагонали for i:=1 to n do for j:=1 to n do if i

Если элементы расположены на главной диагонали и выше её for i:=1 to n do for j:=1 to n do if i

Элементы расположенные ниже главной диагонали for i:=1 to n do for j:=1 to n do if i>j then

Для элементов, расположенных ниже главной диагонали и не ней for i:=1 to n do for j:=1 to n do if i>=j then

Побочная диагональ. if i+j=n+1 then

Если элементы, расположены выше побочной диагонали for i:=1 to n-1 do for j:=1 to n-1 do if i+j

Если элементы, расположены ниже побочной диагонали for i:=2 to n do for j:=2 to n-1 do if i+j>n+1 then

1. Дана квадратная матрица порядка N. В матрице вычислить среднее арифметическое положительных элементов, стоящих на главной диагонали. uses crt; Var a:array[1..50,1..50] of integer;{массив} i,j:integer; s,n,k:integer; sr:real; begin clrscr; Randomize; for i:=1 to n do begin for j:=1 to n do begin a[I,j]:=random (21)-10; write (a[I,j]:3) end; writeln; end; s:=0; for i:=1 to n do for j:=1 to n do if (a[i,j] > 0) and (i=j) then s:=s+a[i,j]; sr:=s/n; write('sr=',sr); end.

Домашнее задание Заполнить матрицу по образцу