Блок-схема алгоритма

Начало

Ввод n, массив А

max=A₁₁; K=1

i=2,n

j=1,n

+ i=j; A_ij>MAX -

MAX=A_ij K=i

Вывод MAX

Конец

Программа

CLS

INPUT "введи размер матрицы "; n

DIM A(n, n)

PRINT "введи матрицу"

FOR i = 1 TO n

FOR j = 1 TO n

'Ввод матрицы с клавиатуры

INPUT A(i,j)

NEXT j, i

'Задание начального значения максимума на главной диагонали матрицы

MAX = A(1,1): K = 1

FOR i = 2 TO n

FOR j = 1 TO n

'Нахождение наибольшего значения главной диагонали матрицы

IF i = j AND A(i,j) > MAX THEN MAX = A(i,j):K = i

NEXT j

NEXT i

PRINT "MAX="; MAX

END