Учеба и наука

• Всего ответов: 1


Валентина
3-й в
411 отзыв
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. 
май 4, 2013 г.
Ответ понравился автору
Лучший ответ по мнению автора

Похожие вопросы