программа двумер.мас.

[hoangvu2005]

Я составил программу, но не получается, ответы не так как в условие указано. Помогите исправить программу.


Условие задач:
Ввести двумерный массив А(N,M), вывести его.Найти максимум в массиве и далее найти минимум среди элементов той строки и того столбца,где содержится найденный максимум. Поменять пару найденных элементов местами.

program Lab_5;
var
A:array[1..10,1..15] of integer;
i,j,N,M,max,min,imax,imin,jmax,jmin: integer;
begin
write('N=');readln(N);
write('M=');readln(M);
for i:=1 to N do
 for j:=1 to M do
 begin
 write('A[',i,',',j,']='); readln(A[i,j]);
 end;
 max:=A[1,1];
 imax:=1;
 jmax:=1;
 for i:=1 to N do
  for j:=1 to M do
  begin
   if A[i,j]>max then
   max:=A[i,j];
   imax:=i;
   jmax:=j;
   writeln('max=',max);
  end;
  min:=A[1,jmax];
  begin
  for i:=1 to N do
   if A[i,jmax]<min then
   imin:=i;
   jmin:=jmax;
  for j:=1 to M do
   if A[imax,j]<min then
   imin:=imax;
   jmin:=j;
   writeln('min=',min);

   end;
   A[imax,jmax]:=min;
   A[imin,jmin]:=max;
  for i:=1 to N do
  begin
  for j:=1 to M do
  Write(A[i,j]);
  writeln
  end;
  End.

[Sazary]

hoangvu2005 Вы не там ставите begin'ы.
Отметил, что исправил.

program Lab_5;
var
A:array[1..10,1..15] of integer;
i,j,N,M,max,min,imax,imin,jmax,jmin: integer;
begin
write('N=');readln(N);
write('M=');readln(M);
for i:=1 to N do
 for j:=1 to M do
 begin
 write('A[',i,',',j,']='); readln(A[i,j]);
 end;

 max:=A[1,1];
 imax:=1;
 jmax:=1;
 for i:=1 to N do
  for j:=1 to M do
   if A[i,j]>max then
   begin
   max:=A[i,j];
   imax:=i;
   jmax:=j;
   writeln('max=',max);
  end;
{writeln('max=',max,'  imax= ',imax,' jmax= ',jmax); }
  min:=A[1,jmax];
  imin := 1;
  jmin := jmax;

  for i:=1 to N do
   if A[i,jmax]<min then
    begin
    imin:=i;
    jmin:=jmax;
    min:=A[i,jmax];
    end;

  for j:=1 to M do
   if A[imax,j]<min then
    begin
    imin:=imax;
    jmin:=j;
    min := A[imax,j];
    end;
    writeln('min=',min);
 {  writeln('min=',min,'  imin= ',imin,'  jmin= ',jmin);   }
{-------}
  {--- для наглядности выведем то, что было ---}
writeln('------');
for i:=1 to N do
 begin
 for j:=1 to M do
  write(A[i,j]:3);
 writeln;
 end;
writeln('------');
A[imax,jmax]:=min;
A[imin,jmin]:=max;
for i:=1 to N do
 begin
  for j:=1 to M do
   Write(A[i,j]:3);
  writeln;
 end;
readln;
End.

[hoangvu2005]

WOW. Спасибо большое, вот почему у меня не п олучилось. Спасибо еще раз