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

[ZelFar]

Помогите решить две задачки:

1.В массиве X(m*n) в каждой строке выбирается min элемент, затем среди этих чисел выбирают max. Напечатать промежуточные и окончательные результаты.
2.В матрице A(n*n) поменять местами первый элемент с наименьшим диагональным элементом.

И если не сложно помогите сделать еще одну задачку по одномерный массивам:
Заданы два отсортированных по убыванию массива одинаковой размерности. Образовать третий массив, отсортированный по убыванию, состоящий из элементов заданных массивов.

[VIK_aka_TOR]

тут весьма доступно разобраны задачи... вам нужно лишь сложить это все воедино)

[ZelFar]

Знать бы еще что складывать)))

[VIK_aka_TOR]

попытка направить на самопознание видимо провалилась...
вот вам первая...

const
n = 5;
m = 6;
var 
x : array [1..m, 1..n] of integer;
a : array [1..m] of integer;
i,j,max : integer;

begin
  randomize;
  writeln('исходная матрица');
  // рандомное заполнение матрицы
  for i := 1 to m do
    begin
      for j := 1 to n do
        begin
        x[i,j] := random(50);
        write(x[i,j] : 3);
        end;
      writeln;  
    end;
  // вычисление минимумов каждой строки, результат заносим в массив А.
  for i := 1 to m do
    begin
      a[i] := x[i,1];
      for j := 1 to n do
        if a[i] > x[i,j] then
          a[i] := x[i,j];
    end;
  // вывод минимумов по строкам
  writeln('минимумы строк');
  for i := 1 to m do
    write(a[i]:3);
    writeln;
  // поиск максимума из минимумов
  max := a[1];
  for i := 1 to m do
    if max < a[i] then
      max := a[i];
  writeln('максимум минимумов ',max);    
end.

[VIK_aka_TOR]

поиск наименьшего диаганального

min := a[1,1];
for i := 1 to n do
   if min > a[i,i] then
      begin
      min := a[i,i];
      imin := i;
      end;

обмен местами

buf := a[imin,imin];
a[imin, imin] := min;
min := buf;

а по третьей... вбиваете все элементы двух массивов в 1 массив... и сортируете собственно)