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

@Аня Гордеева · Регистрация: 19.01.2013

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

Среди столбцов целочисленной матрицы А(n,m) найти номер столбца с наименьшим произведением элементов.

@Leshak · 21.01.2013, 20:11

Pascal

uses crt;
const len = 10;
var
 A: array [ 1 .. len , 1 .. len ] of integer;
 i, j, index, n, m: integer;
 dub, min: longint;
begin
clrscr;
randomize;
repeat
 write('Enter n:');readln(n);
  write('Enter m:');readln(m);
until ( n in [ 1 .. 10 ] ) and ( m in [ 1 .. 10 ] );
 
for i:=1 to n do begin
 for j:=1 to m do begin
     A[i,j]:=random(3)-4;
     write(A[i,j]:3);
 end;
writeln;
end;
 
index:=1; min:=1000;
for j:=1 to m do begin
    dub:=1;
   for i:=1 to n do
       dub:=dub*A[i,j];
       if dub < min then begin
          min:=dub;
          index:=j;
       end;
end;
 
writeln('Min =',min,' and his index is:',index);
readln;
end.

@Аня Гордеева 0 / 0 / 0 Регистрация: 19.01.2013 Сообщений: 18
		1
	Двумерный массив. Найти номер столбца с наименьшим произведением элементов 21.01.2013, 18:53. Показов 1984. Ответов 1 Метки нет (Все метки) Среди столбцов целочисленной матрицы А(n,m) найти номер столбца с наименьшим произведением элементов. 0

Опции темы

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

Решение