Найти столбец матрицы с наименьшим произведением элементов и заменить все элементы столбца произведением

@Трейсер · Регистрация: 07.11.2013

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

Дана целочисленная матрица {Aij}i=1..n,j=1..m (n,m<=100). Найти столбец с наименьшим произведением элементов и заменить все элементы этого столбца этим произведением.

@Puporev · 21.11.2013, 08:45

Сообщение от Трейсер

(n,m<=100).

Сообщение от Трейсер

столбец с наименьшим произведением элементов

Интересно как посчитать целочисленное произведение 100 целых чисел, по модулю больше 1 и записать его в массив?

@ПерС · 21.11.2013, 09:20

Pascal

var a:array [1..100,1..100] of integer;
 n,m,i,j,jmin:integer; p,pmin:longint;
begin
 write ('Введите число строк матрицы N (от 2 до 100) :'); readln(n);
 write ('Введите число столбцов матрицы M (от 2 до 100) :'); readln(m);
 for i:=1 to n do
 for j:=1 to m do begin
  write ('a[',i,',',j,']='); readln (a[i,j]);
 end;
 pmin:=2147483647;
 for j:=1 to m do begin
  p:=a[1,j];
  for i:=1 to n do p:=p*a[i,j];
  if p<pmin then begin
   pmin:=p; jmin:=j;
  end;
 end;
 writeln ('Номер столбца=',jmin);
 writeln ('Произведение=',pmin);
 for i:=1 to n do a[i,jmin]:=pmin;
 write ('Матрица после замены=');
 for i:=1 to n do begin
  writeln;
  for j:=1 to m do write (a[i,j],' ');
 end;
 write ('Нажмите ENTER для завершения');
 readln;
end.

Введите число строк матрицы N (от 2 до 100) :3
Введите число столбцов матрицы M (от 2 до 100) :3
a[1,1]=2
a[1,2]=1
a[1,3]=-1
a[2,1]=10
a[2,2]=2
a[2,3]=-3
a[3,1]=5
a[3,2]=2
a[3,3]=10
Номер столбца=3
Произведение=-30
Матрица после замены=
2 1 -30
10 2 -30
5 2 -30 Нажмите ENTER для завершения

Добавлено через 54 секунды

Сообщение от Puporev

Интересно как посчитать целочисленное произведение 100 целых чисел, по модулю больше 1 и записать его в массив?

Не думаю, что ТС задавался таким вопросом

целочисленная и всё тут

Добавлено через 30 минут

Pascal

1	for i:=2 to n do p:=p*a[i,j];

правильно, хы

@Трейсер 0 / 0 / 0 Регистрация: 07.11.2013 Сообщений: 11
		1
	Найти столбец матрицы с наименьшим произведением элементов и заменить все элементы столбца произведением 21.11.2013, 00:45. Показов 1619. Ответов 2 Метки нет (Все метки) Дана целочисленная матрица {Aij}i=1..n,j=1..m (n,m<=100). Найти столбец с наименьшим произведением элементов и заменить все элементы этого столбца этим произведением. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.11.2013, 08:45	2
	Сообщение от Трейсер (n,m<=100). Сообщение от Трейсер столбец с наименьшим произведением элементов Интересно как посчитать целочисленное произведение 100 целых чисел, по модулю больше 1 и записать его в массив? 0

	21.11.2013, 09:20

Найти столбец матрицы с наименьшим произведением элементов и заменить все элементы столбца произведением

Решение