PascalABC. Двумерные массивы.

[Shah69]

1.Дан массив из NxM элементов. Найти индексы первого наименьшего элемента массива.

2.Дан целочисленный массив В(1..5, 1..5).Вычислить произведение элементов этого массива, расположенных выше левой диагонали.

3.Дана матрица NxM, состоящая из из натур. чисел.Выбрать в строках самые левые наименьшие элементы и поставить их в первый столбец.

[newerow1989]

const n=10;
      m=8;
var p:array[1..n,1..m] of integer;
    i,j,i0,j0:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to m do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   i0:=1;
   j0:=1;
   For i:=1 to n do
      For j:=1 to m do
         If p[i0,j0]>p[i,j] then
         begin
            i0:=i;
            j0:=j;
         end;
   Writeln(i0,'x',j0);
   Readln;
end.

var p:array[1..5,1..5] of integer;
    i,j,pr:integer;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      For j:=1 to 5 do
      begin
         p[i,j]:=1+Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   pr:=1;
   For i:=1 to 4 do
      For j:=i+1 to 5 do
         pr:=pr*p[i,j];
   Writeln(pr);
   Readln;
end.

const n=10;
      m=8;
var p:array[1..n,1..m] of integer;
    i,j,j0,z:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to m do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   For i:=1 to n do
   begin
      j0:=1;
      For j:=2 to m do
         If p[i,j0]>p[i,j] then
            j0:=j;
      z:=p[i,j0];
      p[i,j0]:=p[i,1];
      p[i,1]:=z;
   end;
   For i:=1 to n do
   begin
      For j:=1 to m do
         Write(p[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.