Найти наибольший элемент квадратной матрицы, лежащий на главной диагонали - Free Pascal
Формулировка задачи:
В двумерном массиве А [1..n,1..n] найти наибольший элемент, лежащий на главной диагонали.
Решение задачи: «Найти наибольший элемент квадратной матрицы, лежащий на главной диагонали»
textual
Листинг программы
Const nmax = 20;
Var A:array[1..nmax,1..nmax] of integer;
i,j,n:integer;
max:integer;
Begin
Repeat
write('N: ');
readln(n);
Until (n>0)and(n<=nmax);
For i:=1 to n do
Begin
For j:=1 to n do
Begin
A[i,j]:=random(31)-15;
write(A[i,j]:4);
End;
writeln;
End;
max:=A[1,1];
For i:=2 to n do
if A[i,i]>max then max:=A[i,i];
writeln('Max элемент лежащий на главной диагонали = ',max);
readln;
End.
Объяснение кода листинга программы
- Объявлены переменные: A (массив), i, j, n (счетчики), max (для хранения максимального элемента).
- Цикл Repeat предназначен для получения от пользователя ввода числа N (размер матрицы).
- Внутренний цикл For i:=1 to n выполняет заполнение матрицы случайными числами от 15 до 45.
- После заполнения матрицы выводится на экран.
- Выполняется поиск максимального элемента на главной диагонали (внутренний цикл For i:=2 до n).
- Выводится на экран максимальный элемент.
- Запрос на ввод для выхода из программы.