Найти максимальный и минимальный элементы двумерного массиву.Вивесты результат

[sheka]

>Напишу бесплатно.
Доплачу.

[mMAg]

Удивительно как много людей накинулось на простую задачу. Хотя та уже давно потеряла свою актуальность.
Хотя... не удивительно.

[_-Re@l-_]

Вы хотите сказать, что ВОТ ЭТО стоит денег???

Var A:array[1..5,1..5] of integer;
    i,j,min,max:integer;
Begin
     for i:=1 to 5 do
     for j:=1 to 5 do
     begin
          write('A[',i,',',j,'] = ');
          readln(A[i,j]);
     end;
     min:=A[1,1];
     max:=A[1,1];
     for i:=1 to 5 do
     for j:=1 to 5 do
     begin
          if A[i,j]<min then min:=A[i,j];
          if A[i,j]>max then max:=A[i,j];
     end;
     writeln('max = ',max);
     writeln('min = ',min);
     readln;
end.

[spamer]

[offtop]

Вы хотите сказать, что ВОТ ЭТО стоит денег???

Re@l, не в этом суть. Дело даже не в 40р., которые заплатит ТС, а смысл в том, что ТС поленился даже найти ВОТ ЭТО самое, что ему надо. Ну вот и пусть тогда он платит, почему бы и нет...так сказать : время - деньги...т.е. мое время - его деньги...все просто...

[/offtop]

[jammer77]

сделаю очень быстро
ICQ: 414935654

[mMAg]

Всё стоит денег. В том числе и это. Просто это стоих малых денег.