Элементы того столбца, в котором находится максимальный элемент матрицы, заменить на нули

12.11.2012, 20:21. **Показов** 1845. **Ответов** 3

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

Если не трудно помочь пожалуста помогите, буду очень благодарен)) у меня тут есть уже небольшие наброски.

Преобразовать массив: элементы того столбца, в котором находится максимальный элемент матрицы, заменить на нули

Pascal

Program dum;
uses crt;
const
n=4;
m=6;
    var
       a:array[1..n,1..m] of integer;
       x,i,j,k,max:integer;
       
BEGIN
       
             
          for i:=1 to n do begin
            for j:=1 to m do begin
              read (a[i,j]);
            end;  
          end;
             
          for i:=1 to n do begin
            writeln;
            for j:=1 to m do begin
             write(a[i,j]:4);
            end;
          end;
          
                      
                  x:=1;
        max:=a[1,1];
        for i:=1 to n do  
          for j:=1 to m do
            begin
              if a[i,j]>max
              then 
                begin
                max:=a[i,j];
                x:=j;
                end;
            end;
            
       
                   
             writeln;
          for i:=1 to n do begin
            for j:=1 to n do begin
            end;
 
                     writeln('Максимальный элемент ',max,' столбца=',i);
          end;
                     readln
END.

@brunis · 12.11.2012, 20:47

Pascal

uses crt;
const
n=4;
m=6;
    var
       a:array[1..n,1..m] of integer;
       i,j,x,max:integer;
 
BEGIN
      
 
          for i:=1 to n do begin
            for j:=1 to m do begin
              readln(a[i,j]);
            end;
          end;
 
          for i:=1 to n do begin
            writeln;
            for j:=1 to m do begin
             write(a[i,j]:4);
            end;
          end;
 
 
        x:=1;
        max:=a[1,1];
        for i:=1 to n do
          for j:=1 to m do
            begin
              if a[i,j]>max
              then
                begin
                max:=a[i,j];
                x:=j;
                end;
            end;
             writeln;
             writeln;
             writeln('Ìàêñèìàëüíûé ýëåìåíò ',max,' ñòîëáöà=',i);
 
          for i:=1 to n do a[i,x]:=0;
          writeln;
          for i:=1 to n do begin
            writeln;
            for j:=1 to m do begin
             write(a[i,j]:4);
            end;
          end;
 
readln
END.

@ermolay · 12.11.2012, 20:54

Pascal

const
  n = 4;
  m = 6;
 
var
  a: array[1..n, 1..m] of integer;
  x, i, j, k, max: integer;
 
begin
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      write('a[',i,',',j,'] = ');
      read(a[i, j]);
    end;  
  end;
  writeln('Исходный массив:');
  for i := 1 to n do 
  begin
    for j := 1 to m do 
      write(a[i, j]:4);
    writeln;
  end;
  
  x := 1;
  max := a[1, 1];
  for i := 1 to n do  
    for j := 1 to m do
    begin
      if a[i, j] > max then 
      begin
        max := a[i, j];
        x := j;
      end;
    end;
  writeln;
  for i := 1 to n do 
    a[i,x]:=0;
  writeln('Максимальный элемент ', max, ' столбца=', i);
  writeln('Преобразованный массив:');
  for i:=1 to n do
  begin 
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  readln
end.

Добавлено через 1 минуту
упс! опять сплю

@brunis · 12.11.2012, 21:01

ничего

иногда сам попадаюсь. Теперь буду знать, как соблюдать этикет в таких ситуациях

@brunis 100 / 97 / 61 Регистрация: 08.08.2012 Сообщений: 163
	12.11.2012, 21:01	4
	ничего иногда сам попадаюсь. Теперь буду знать, как соблюдать этикет в таких ситуациях 0

Опции темы