Найти произведение положительных элементов K-го столбца данной матрицы и наибольший элемент К-ой строки.

@Cronalldo · Регистрация: 22.09.2013

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

Дана матрица размера M x N и целое число K Найти произведение положительный элементов K-го столбца данной матрицы и максимальный Эл-т К-ой строки.

@ildwine · 13.11.2013, 19:30

Pascal

const
  n = 6;
  m = 4;
  k = 3;
var
  y : array[1..n, 1..m] of integer;
  p, max, i, j : integer;
begin
  p := 1;
  max := -1000;
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      y[i,j] := random(30) - 10;
      write(y[i,j]:4);
      if (j = k) and (y[i,j] > 0) then p := p * y[i,j]; 
      if (i = k) and (y[i,j] >= max) then max := y[i,j]
    end;
    writeln
  end;
  writeln('максимальный элемент строки ', k, ' равен: ', max);
  writeln('произведение положительных элементов стоблца ', k, ' равно: ', p);
  readln
end.

@Cronalldo 0 / 0 / 0 Регистрация: 22.09.2013 Сообщений: 17
		1
	Найти произведение положительных элементов K-го столбца данной матрицы и наибольший элемент К-ой строки. 13.11.2013, 18:24. Показов 1995. Ответов 1 Метки нет (Все метки) Дана матрица размера M x N и целое число K Найти произведение положительный элементов K-го столбца данной матрицы и максимальный Эл-т К-ой строки. 0

	13.11.2013, 19:30

Найти произведение положительных элементов K-го столбца данной матрицы и наибольший элемент К-ой строки.

Решение