помогите дорешать 2 задачки Опции

[Vinsent90]

Возникли проблемы при решении 2х задач.

1) Задан двухмерный массив, найти наибольший и наименьший элементы и поменять их местами.
 MAXMIN.PAS ( 1.11 килобайт ) Кол-во скачиваний: 382
. Не могу поменять местами элементы массива

2) Дана символьная строка. Определить, содержит ли строка числа, если да, то вывести на экран только чётные.
 STROKA.PAS ( 431 байт ) Кол-во скачиваний: 373
.

Помогите плиз

[мисс_граффити]

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

if a[i,j]<min then
  min:=a[i,j];

а надо делать

if a[i,j]<a[mini,minj] then
  begin  
  mini:=i;
  minj:=j;
  end;

то есть запоминаешь не значение элемента, а его индексы.
аналогично с максимальным.

[Vinsent90]

Не находятся коофициенты наименьшего числа. Кто ошибку найдёт?

Код

Program MaxMin;
uses crt;
var i,j,m,n,k,l,s,t,y,x : integer;
     max, min            : integer;
     maxi,maxj,mini,minj : integer;
     A, B, C: array[1..10,1..10] of integer;
Begin
clrscr;
      Write('koli4estvo strok, ne bolee 10 - '); ReadLn(N);
      Write('koli4estvo stolbcov, ne bolee 10 - '); ReadLn(M);
      if ((1>n) or (n>10) or (1>m) or (m>10))
      then begin writeln; writeln('OSHIBKA'); readln; halt; end;
        For i := 1 to N do
        For j := 1 to M do
          begin Write('A[',i, ',',j,']= ');
                ReadLn(A[i, j]);
          end;
       WriteLn;
      WriteLn(' matrica A');
      WriteLn;
      For i := 1 to N do
        begin
          For j := 1 to M do Write(A[i, j] : 5 );
          WriteLn;
          WriteLn;
        end;

  max:=A[1,1];
        for i:=1 to n do begin
        for j:=1 to m do
            if A[i,j]>max then max:=A[i,j]
            end; writeln ('naibolshii element = ', max);

  min:=A[1,1];
        for i:=1 to n do begin
        for j:=1 to m do
            if A[i,j]<min then min:=A[i,j];
            end;writeln ('naimenshii element = ', min);
            writeln;

        for i:=1 to n do begin
        for j:=1 to m do
            if A[i,j]>A[maxi, maxj] then begin
            maxi:=i; maxj:=j; end; end;

        for i:=1 to n do begin
        for j:=1 to m do
            if A[i,j]<A[mini, minj] then begin
            mini:=i; minj:=j; end; end;

writeln ('   mini=',mini,'   minj=',minj,'  maxi=',maxi,'  maxj=',maxj); writeln;

    A[maxi, maxj]:= min;
    A[mini, minj]:= max;

  WriteLn(' otvet= ');
  WriteLn;
     For i := 1 to N do
   begin
     For j := 1 to M do Write(A[i, j] : 5 );
  WriteLn; WriteLn; end;

Readkey;
clrscr;
end.

P.S. Со второй задачей помогите плз

[Vinsent90]

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