Матрицы - вопрос №625512

 Даны натуральные числа 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;

for j:=1 to m do

begin

  p:=1;

  for i:=1 to n do

      p:=p*a[i,j];

  if p<=min then begin min:=p; k:=j; end;

end; 

writeln('matrica');

for i:=1 to n do

begin

  for j:=1 to m do

   write(a[i,j]:8:2);

  writeln;

end;

writeln('nomer stolbca=',k);

readln

end. 

05.05.13
Лучший ответ по мнению автора

Еva

Читать ответы

1 1

Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store