Заменить все локальные максимумы матрицы на 0

@Аселек · Регистрация: 28.02.2011

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

Прошу помощь написать программу, что то не получается-пожалуйста помогите.Дана матрица размера M*N. Элемент называется локальным минимум (максимум), если он меньше (больше) всех окружающих его элементов. Заменить все локальные максимумы данной матрицы на 0.

@nuHrBuH · 08.03.2011, 21:13

Сообщение от Аселек

Прошу помощь написать программу, что то не получается-пожалуйста помогите.Дана матрица размера M*N. Элемент называется локальным минимум (максимум), если он меньше (больше) всех окружающих его элементов. Заменить все локальные максимумы данной матрицы на 0.

Pascal

uses wincrt;
var
   x : array[1..10,1..10] of integer;
 
    i, j,
    m, n,
    max_i,
    max_j : byte;
    max   : integer;
 
 
begin
 write('razmer : '); readln(m,n);
 
 writeln('Massive :');
 
 for i:=1 to m do
  for j:=1 to n do
    read(x[i,j]);
 
 
 for I:=1 to m do
   begin
        max := x[i,1];
      max_j := 1;
 
        for J := 1 to n do
           if max < x[i,j]
              then
                  begin
                       max := x[i,j];
                     max_j := j;
                  end;
 
         x[i,max_j] := 0;
   end;
 
 writeln('Result:');
 
 for i:=1 to m do
  begin
    for J:=1 to m do
     write(x[i,j] , ' ');
    writeln;
  end;
 
 end.

Если я все правильно понял.

@Аселек 11 / 11 / 0 Регистрация: 28.02.2011 Сообщений: 34
		1
	Заменить все локальные максимумы матрицы на 0 08.03.2011, 20:43. Показов 1658. Ответов 1 Метки нет (Все метки) Прошу помощь написать программу, что то не получается-пожалуйста помогите.Дана матрица размера M*N. Элемент называется локальным минимум (максимум), если он меньше (больше) всех окружающих его элементов. Заменить все локальные максимумы данной матрицы на 0. 0

	08.03.2011, 21:13

Заменить все локальные максимумы матрицы на 0

Решение