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

@Данилов · Регистрация: 25.01.2013

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

@CodeR · 26.01.2013, 10:30

Pascal

Var A:array[1..20,1..20] of integer;
    B:array[1..20] of longint;
    i,j,n,m,jmin:byte;
Begin
    write('Введите n,m: ');readln(n,m);
    For j:=1 to m do
     B[j]:=1;
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
        B[j]:=B[j]*A[i,j];
      End;
      writeln;
    End;
    jmin:=1;
    For j:=2 to m do
     if B[j]<B[jmin] then jmin:=j;
    writeln('Столбец с min произведением ',jmin,' там произведение = ',B[jmin]);
    readln;
End.

@Данилов 2 / 2 / 0 Регистрация: 25.01.2013 Сообщений: 39
		1
	Среди столбцов целочисленной матрицы А(н,м) найти столбец с минимальным произведением элементов 25.01.2013, 21:44. Показов 1596. Ответов 1 Метки нет (Все метки) Среди столбцов целочисленной матрицы А(n,m) найти столбец с минимальным произведением элементов. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение