9) Дана матрица а(NхN).

Найти строку, произведение элементов которой максимально.

Вывести исходную матрицу, номер строки и полученное произведение.

program num9;

const max = 100;

Var a: array[1..Max,1..Max] of real;

I, j, n, index: integer;

proizvedenie, maxPr: real;

begin

writeln( 'Введите размер матрицы N' );

readln(n);

{Ââîä}

for i:=1 to n do

for j:=1 to n do begin

read( a[i][j] );

end;

{Вывод}

writeln;

writeln( 'Исходная матрица:' );

for i:=1 to n do begin

for j:=1 to n do begin

write( a[i][j], ' ' );

end;

writeln;

end;

{Решение}

index:=1;

maxPr:=1;

proizvedenie:=1;

for i:=1 to n do

maxPr:=maxPr*a[1][i];

for i:=2 to n do begin

for j:=1 to n do

proizvedenie:=proizvedenie*a[i][j];

if proizvedenie > maxPr then begin

maxPr:=proizvedenie;

index:=i;

end;

proizvedenie:=1;

end;

{Вывод}

writeln;

writeln( 'Номер строки: ', index );

writeln( 'Произведение: ', maxPr );

end.

10 .1) Дана матрица в(МхN).

Найти столбец, произведение

элементов которого минимально.

Вывести исходную матрицу,

номер столбца и полученное произведение.

program num10;

const max = 100;

Var a: array[1..Max,1..Max] of real;

I, j, n, index: integer;

proizvedenie, minPr: real;

begin

writeln( 'Введите размер матрицы N' );

readln(n);

{Ââîä}

for i:=1 to n do

for j:=1 to n do begin

read( a[i][j] );

end;

{Вывод}

writeln;

writeln( 'Исходная матрица:' );

for i:=1 to n do begin

for j:=1 to n do begin

write( a[i][j], ' ' );

end;

writeln;

end;

{Решение}

index:=1;

minPr:=1;

proizvedenie:=1;

for i:=1 to n do

minPr:=minPr*a[1][i];

for i:=2 to n do begin

for j:=1 to n do

proizvedenie:=proizvedenie*a[i][j];

if proizvedenie < minPr then begin

minPr:=proizvedenie;

index:=i;

end;

proizvedenie:=1;

end;

{Вывод}

writeln;

writeln( 'Номер строки: ', index );

writeln( 'Произведение: ', minPr );

end.

10.2) Дана матрица в(МхN).

Найти столбец, произведение

элементов которого минимально.

Вывести исходную матрицу,

номер столбца и полученное произведение.

program num10;

const max = 100;

Var b: array[1..Max,1..Max] of real;

I, j, n, m, index: integer;

proizvedenie, minPr: real;

begin

writeln( 'Введите размер матрицы M' );

readln(m);

writeln( 'Введите размер матрицы N' );

readln(n);

{Ввод}

for i:=1 to m do

for j:=1 to n do begin

read( b[i][j] );

end;

{Вывод}

writeln;

writeln( 'Исходная матрица:' );

for i:=1 to m do begin

for j:=1 to n do begin

write( b[i][j], ' ' );

end;

writeln;

end;

{Решение}

index:=1;

minPr:=1;

proizvedenie:=1;

for i:=1 to m do

minPr:=minPr*b[i][1];

for i:=2 to n do begin

for j:=1 to m do

proizvedenie:=proizvedenie*b[j][i];

if proizvedenie < minPr then begin

minPr:=proizvedenie;

index:=i;

end;

proizvedenie:=1;

end;

{Вывод}

writeln;

writeln( 'Номер столбца: ', index );

writeln( 'Произведение: ', minPr );

end.