Заменить произведением отрицательных элементов этого же столбца

@789456123321 · Регистрация: 15.12.2013

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

задана матрица A(n,m), в каждом столбце которой максимальный элемент необходимо заменить произведением отрицательных элементов этого же столбца

@volvo · 27.12.2013, 18:30

Pascal

const
  n = 5;
  m = 10;
 
var
  a : array[1 .. n, 1 .. m] of integer;
  i, j, ix : integer;
  p : integer;
 
begin
  randomize;
  writeln('До:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(100) - 50;
      write(a[i, j]:7);
    end;
    writeln;
  end;
 
  for j := 1 to m do
  begin
    p := 1;
    ix := 1;
    for i := 1 to n do
    begin
      if a[i, j] < 0 then
        p := p * a[i, j];
      if a[i, j] > a[ix, j] then
        ix := i;
    end;
    a[ix, j] := p;
  end;
 
  writeln('После:');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:7);
    writeln;
  end;
end.

@789456123321 0 / 0 / 0 Регистрация: 15.12.2013 Сообщений: 6
		1
	Заменить произведением отрицательных элементов этого же столбца 26.12.2013, 20:47. Показов 1742. Ответов 1 Метки нет (Все метки) задана матрица A(n,m), в каждом столбце которой максимальный элемент необходимо заменить произведением отрицательных элементов этого же столбца 0

Опции темы

Заменить произведением отрицательных элементов этого же столбца

Решение