Заменить все элементы нулями, кроме эл-ов, находящихся в строке и столбце - Pascal
Формулировка задачи:
Добрый день! Задача такая:
В матрице размером N x N найти наибольший элемент главной диагонали и заменить нулями все элементы матрицы, кроме элементов, находящихся в строке и столбце, содержащих этот максимальный элемент.
Квадратную матрицу и макс.элемент по главной диагонали я освоил. Прошу помочь с заменой элементов на нули
Заранее спасибо!
Решение задачи: «Заменить все элементы нулями, кроме эл-ов, находящихся в строке и столбце»
textual
Листинг программы
var A:array[1..10,1..10] of integer; i,j,n,max:integer; begin randomize; write('Размер матрицы n='); readln(n); for i:=1 to n do begin for j:=1 to n do begin A[i,j]:=random(25); write(A[i,j]:4); end; writeln; end; max:=1; for i:=max+1 to n do if A[i,i]>A[max,max] then max:=i; writeln('Максимальный элемент главной диагонали = ',A[max,max]); for i:=1 to n do for j:=1 to n do if(i<>max)and(j<>max)then a[i,j]:=0; for i:=1 to n do begin for j:=1 to n do write(A[i,j]:4); writeln; end; end.
Объяснение кода листинга программы
- Объявлены переменные: A, i, j, n, max типа integer;
- Задается размер матрицы n;
- Заполняются элементы матрицы A случайными числами от 0 до 25;
- Находится максимальный элемент главной диагонали матрицы A;
- Заменяются нулями все элементы матрицы A, кроме элементов на главной диагонали;
- Выводятся элементы матрицы A.