Заменить все элементы в строке и столбце матрицы на 0, где находится наибольший элемент

@Nekit1911 · Регистрация: 06.06.2012

1.дан двухмерный массив вещественных чисел размерностью N*M. Заменить все элементы в строке и стобце на 0,где находится наибольший элемент.

BuPy7 · 06.06.2012, 22:45

1)

Pascal

const
  n=3;
  m=3;
var
  a:array[1..n,1..m] of integer;
  i,j,imax,jmax,max:integer;
begin
  max:=0;
  randomize;
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=-10+random(40);
        if j=m then writeln(a[i,j]:3)
          else write(a[i,j]:3);
        if a[i,j]>max then
          begin
            imax:=i;
            jmax:=j;
          end;
      end;
  writeln;
  for i:=1 to n do
    for j:=1 to m do
      begin
        if (j=jmax) or (i=imax) then a[i,j]:=0;
        if j=m then writeln(a[i,j]:3)
          else write(a[i,j]:3);
      end;
  readln;
end.

@Nekit1911 0 / 0 / 0 Регистрация: 06.06.2012 Сообщений: 4
		1
	Заменить все элементы в строке и столбце матрицы на 0, где находится наибольший элемент 06.06.2012, 22:24. Показов 1294. Ответов 1 Метки нет (Все метки) 1.дан двухмерный массив вещественных чисел размерностью N*M. Заменить все элементы в строке и стобце на 0,где находится наибольший элемент. 0

Опции темы

Заменить все элементы в строке и столбце матрицы на 0, где находится наибольший элемент

Решение