Заменить все элементы нулями, кроме эл-ов, находящихся в строке и столбце

@fiend94 · Регистрация: 15.12.2016

Author24 — интернет-сервис помощи студентам

Добрый день! Задача такая:

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

Pascal

var A:array[1..5,1..5] 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:=a[1,1];
for i:=1 to n do
if A[i,i]>max then max:=A[i,i];
writeln('Максимальный элемент главной диагонали = ',max);
end.

@Constantin Cat · 03.04.2018, 16:58

Pascal

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.

	03.04.2018, 16:58

Опции темы