Матрицы.Помогите решить задачки

[katysever]

Пожалуйста, помогите решить задачки.В матрицах я почти полный "баран". Заранее спасибо.

1. Дана целочисленая квадратная матрица. Найти номера столбцов, элементы которых образуют возрастную последовательность.
В этой задаче не знаю как именно найти номера столбцов с возрастной последовательностью и куда их потом помещать... а массив что-ли?


2. Дана матрица L[5,6].Записать элементы каждого стобца матрицы в обратном порядке.

[Sazary]

Первая:

uses crt;
const m=5; n=5;
var
a : array[1..m,1..n] of integer;
b : array[1..n] of integer;
i,j,k : integer;
fl : boolean;

begin
clrscr;
{--}
randomize;
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  a[i,j] := random(15)-3;
  write(a[i,j]:5);
  end;
 writeln;
 end;
writeln('-----------');
{---------}
k:=0;
for j:=1 to n do
  begin
  fl := true;
  for i:=2 to m do
    if a[i,j]<a[i-1,j] then   begin
                   fl := false;
                   break;
                   end;
  if fl then begin
             inc(k);
             b[k] := j;
             end;
  end;
for i:=1 to k do
 write(b[k]:4);
readln;
end.

[Sazary]

Вторая:

uses crt;
const m=5; n=6;
var
a : array[1..m,1..n] of integer;
i,j,k,tmp : integer;
begin
clrscr;
{--}
randomize;
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  a[i,j] := random(15)-3;
  write(a[i,j]:5);
  end;
 writeln;
 end;
writeln('-----------');
{---------}
k := m div 2;
for j:=1 to n do
  for i:=1 to k do
    begin
    tmp := a[i,j];
    a[i,j]:=a[m-i+1,j];
    a[m-i+1,j] := tmp;
    end;
{---}
for i:=1 to m do
 begin
 for j:=1 to n do
  write(a[i,j]:5);
 writeln;
 end;
readln;
end.

[katysever]

Спасибочки большое. Только вотя не совем поняла вот эту запись:k := m div 2; во 2й задачке
Для чего она здесь?

[Sazary]

Только вотя не совем поняла вот эту запись:k := m div 2; во 2й задачке
Для чего она здесь?

Требуется записать столбец в обратном порядке. Для этого нужно поменять местами 1-й элемент с последним, 2-й - с предпоследним и т.д. Но дойти нужно только до середины, иначе он снова расставит все по местам )
Запись k := m div 2 означает, что в k занесется результат целочисленного деления m на 2. (например 7 div 2 = 3)