Дана матрица A размером m x n , состоящая из натуральных чисел, больших 1.
В этой задаче требуется найти :

1). Строки матрицы упорядочить по невозрастанию произведения элементов строк
2). Составить одномерный массив B, в котором Bj , равен номеру столбца, содержащего только числа, кратные 5, в противном случае Bj = 0.

---------------

Как упорядочить по невозрастанию я знаю, а вот вопрос : Как найти произведение строк ?

Матрица

Program h;
  const
      m=5;
       n=4;
       matrix: array[1..m,1..n] of integer=
             (     
               (3,2,4,6),
               (2,5,3,5),
               (5,7,3,5),
               (4,6,3,2),
               (9,5,2,6)
              );
..............................

Подскажите так надо делать 2). пункт моего задания или нет ?

    for j:=1 to n do begin
 if  n mod 5=0 then  B[j]:=n;
   else B[j]:=0; 

Не совсем...

for j := 1 to n do begin { по столбцам }

  count := 0;
  for i := 1 to m do { перебор элементов в столбце }
    if (a[i, j] mod 5) = 0 then count := count + 1;

  if count = m then B[j] := j else B[j]:=0; 

end;

Так находится произведение, например 1-ой строки ?

P:=1;
for i:=1 to 1 do
  for j:=1 to n do 
P:= P * a[i,j] ;

Подскажите плиз как всё таки найти это.. произведение строк, что то не получается ......

А тебе не надо искать , тебе надо произведение элементов строк, а это совершенно разные вещи...

for i:=1 to m do begin
  P:=1;
  for j:=1 to n do
    P:= P * a[i,j];
  { теперь у тебя в P произведение элементов строки № i }
end;

Program h;
  const
      m=5;
       n=4;
       a: array[1..m,1..n] of integer=
             (     
               (3,2,4,6),
               (2,5,3,5),
               (5,7,3,5),
               (4,6,3,2),
               (9,5,2,6)
              );

  Var
     i, j , P, count: integer;
     B: array[1..100] of integer;

Begin

{ Нахождение произведения элементов строк }

     for i:=1 to m do
         P:=1;
            for j:=1 to n do begin
         P:= P * a[i,j];
end;
 
{ Перестановка строк матрицы  по невозрастанию произведений элементво строк }
            
 for i:=1 to m do
      for j:=m  Down to i+1 do
  if a[Pred[j] < a[j] tnen begin
  temp:=a[j-1];
  a[j-1]:=a[j];
  a[j]:= temp;
end;

{ Выполнение 2-го пункта моего задания } 
for j := 1 to n do begin 

  count := 0;
  for i := 1 to m do 
    if (a[i, j] mod 5) = 0 then count := count + 1;

  if count = m     then B[j] := j 
      else B[j]:=0; 

end; 
      writeln('Полученный массив B=');
          for i:=1 to m do
              for j:=1 to n do
                 write( B[j]);
readln;
end.
 

Совсем запутался с перестановкой строк по невозрастанию... И кажется с произведением что то не так...
Сам знаю что делаю неправильно, но где ошибка ?

Скажи мне, у тебя что, кнопки "Поиск" нет? Или ты считаешь, что тебе должны все на блюдечке принести, в том числе и ссылки? Воспользуйся в конце концов поиском !!! Задача уже не один раз решалась...

Поиском я воспользовался....
http://forum.pascal.net.ru/index.php?showt...элементов+строк


Задача прямо в точности как моя..., вот только там нет ответа на 1 пункт задачи..,,

Помогите дорешать, а то до экзаменов не допустят.. пожалста

Вот это выполнение первого пункта задания :

const nm=10; mm=10;
var n,m,i,j,tmp:longint;
a:array[1..mm,1..nm] of longint;
tta,psa:array[1..nm] of longint;

begin
readln(m,n);
for i:=1 to m do
begin
psa[i]:=1;
for j:=1 to n do
begin
read(a[i,j]);
psa[i]:=psa[i]*a[i,j];
end;
readln;
end;

for i:=1 to m do
for j:=1 to m do
begin
if psa[i]>psa[j] then
begin
tmp:=psa[i]; psa[i]:=psa[j]; psa[j]:=tmp;
for tmp:=1 to n do tta[tmp]:=a[i,tmp];
for tmp:=1 to n do a[i,tmp]:=a[j,tmp];
for tmp:=1 to n do a[j,tmp]:=tta[tmp];
end;
end;

for i:=1 to m do
begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
end.

А как мне его переделать, если мне нужно чтобы матрица была задана вот так :

  const
      m=5;
       n=4;
       a: array[1..m,1..n] of integer=
             (     
               (3,2,4,6),
               (2,5,3,5),
               (5,7,3,5),
               (4,6,3,2),
               (9,5,2,6)
              );