Двумерный массив.Паскаль.

[Красавчик52rus]

Дана матрица B(4,4).
Найти произведение положительных элементов среди элементов, расположенных выше побочной диагонали матрицы B.
Найти минимальный элемент во 2-м столбце матрицы В.
Поменять местами найденный минимальный элемент и значение 3-го элемента в 4-й строке.
Нужен полностью код на паскале, помогите пожалуйста Срочно очень надо. Буду очень благодарен.

[Mad_Cat]

а так помочь не можешь???

а ты че нить сам пытался сделать?

[Красавчик52rus]

а так помочь не можешь???

[NinaSSS]

попробуйте так

program massiv;   uses crt;
 const n=4; m=4;
var b:array[1..10,1..10] of integer;
i,j,k,s,min,x,y,t :integer; p:real;
 begin  clrscr;
 randomize;
 for i:=1 to n do begin
 for j:=1 to m do begin
 b[i,j]:=random(10);
 end; end;
  for i:=1 to n do begin
 for j:=1 to m do begin
write( b[i,j]:3); end; writeln; end;
p:=1;
  for i:=1 to n do begin
 for j:=1 to m do begin
 if i+j<=n then if b[i,j]>0 then p:=p*b[i,j];
 end;end;
 writeln('proizveden=',p);
min:=1000;
 for j:=1 to m do begin
 for i:=1 to n  do begin
  if j =2 then if b[i,j]<min then begin min:=b[i,j]; x:=i;y:=j; end; end;end;
  t:=b[x,y];
  b[x,y]:=b[4,3];
  b[4,3]:=t;
   writeln('min vo 2 stolbze=',min);
  writeln('rezultir matrica');
     for i:=1 to n do begin
 for j:=1 to m do begin
write( b[i,j]:3); end; writeln; end;
  end.

[Красавчик52rus]

спасибо огромное!!! Нина ты очень хороший человек, что я могу сделать в ответ на такое добро??))