Найти максимальный элемент матрицы и все элементы расположенные в одном ряде

@Silenko · Регистрация: 09.12.2011

Дана квадратная матрица А порядка n. Составить программу которая находит максимальный элемент и все элементы расположенные в одном ряде и в одном столбце с максимальным заменяет на нули.

@GoldenBoy · 09.12.2011, 19:34

Pascal

const n=3;
var a:array[1..n,1..n] of integer;
    l,k,i,j,max:integer;
begin
   max:=-maxint;
   
   writeln('Ââåäèòå ìàòðèöó');
   for i:=1 to n do
      for j:=1 to n do
         readln(a[i,j]);
 
   for i:=1 to n do
   for j:=1 to n do
   if a[i,j]>max then
   begin
   max:=a[i,j];
   l:=i;
   k:=j;
   end;
 
for i:=1 to n do
a[i,k]:=0;
 
for j:=1 to n do
a[l,j]:=0;
 
writeln('Ïîëó÷åííàÿ ìàòðèöà');
   for i:=1 to n do
   begin
      for j:=1 to n do
         write(a[i,j]:4);
         writeln
         end;
   
end.

@Silenko · 09.12.2011, 21:14 **[ТС]**

И чё она считает???? вроде ничего

@GoldenBoy · 09.12.2011, 22:15

Она ничего не считает.

Сообщение от Silenko

в одном ряде и в одном столбце с максимальным заменяет на нули.

@Silenko 1 / 1 / 0 Регистрация: 09.12.2011 Сообщений: 5
		1
	Найти максимальный элемент матрицы и все элементы расположенные в одном ряде 09.12.2011, 19:07. Показов 999. Ответов 3 Метки нет (Все метки) Дана квадратная матрица А порядка n. Составить программу которая находит максимальный элемент и все элементы расположенные в одном ряде и в одном столбце с максимальным заменяет на нули. 0

@Silenko 1 / 1 / 0 Регистрация: 09.12.2011 Сообщений: 5
	09.12.2011, 21:14 [ТС]	3
	И чё она считает???? вроде ничего 0

@GoldenBoy Goldeeeeeeen ! 245 / 237 / 186 Регистрация: 15.10.2011 Сообщений: 457
	09.12.2011, 22:15	4
	Она ничего не считает. Сообщение от Silenko в одном ряде и в одном столбце с максимальным заменяет на нули. 0

Опции темы

Найти максимальный элемент матрицы и все элементы расположенные в одном ряде

Решение