Заменить все элементы нулями, кроме эл-ов, находящихся в строке и столбце - 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.

Объяснение кода листинга программы

  1. Объявлены переменные: A, i, j, n, max типа integer;
  2. Задается размер матрицы n;
  3. Заполняются элементы матрицы A случайными числами от 0 до 25;
  4. Находится максимальный элемент главной диагонали матрицы A;
  5. Заменяются нулями все элементы матрицы A, кроме элементов на главной диагонали;
  6. Выводятся элементы матрицы A.

Оцени полезность:

10   голосов , оценка 4.5 из 5
Похожие ответы