Даны натуральные числа n, m и матрица разрядности nхm действительных чисел, где n,m≤7. Найти столбец матрицы с минимальным произведением элементов.
Написать программу на паскале.
program matr;
uses crt;
const n=3; m=3;
var a:array[1..n,1..m] of real;
i,j,k:integer;
min,p:real;
begin
clrscr;
writeln('vvedite elementy matricy');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
min:=a[i,j]; k:=1;
p:=1;
p:=p*a[i,j];
if p<=min then begin min:=p; k:=j; end;
end;
writeln('matrica');
write(a[i,j]:8:2);
writeln;
writeln('nomer stolbca=',k);
readln
end.