Помогите блондинке!

[Sazary]

Возьмите решение из этой темы ->http://programmersforum.ru/showthread.php?t=30750.
Там сортируется по убыванию. Следовательно, вам нужно изменить один знак.
Потом перед сортировкой добавьте нахождение максимума и минимума над и под диагональю.

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

[Style00001]

ну хоть кто нибудь пожалуййста!!

[KORN]

главное сейчас преподы ленивые пошли... вот спрашивали бы по решению задачи... тыкнул бы пальцем куда нить в листинг и все... и 60% студентов сразу же бы отсеилась т.к. задачи делаем им мы, а не они сами... я б наверно уже диплома 3 получить успел... по тому количеству решеных задач... девушка вы подумайте, почему мы должен писать все по 10 раз, нам за это даже не платят... да, для нас это легко, но постоянно переписывать, искать то что уже писали просто достает... и вообще читайте правила перед созданием темы...

[Style00001]

program QQ;
const n=5;
var a:array[1..n,1..n]of integer;
i,j,k,temp,maxa,mina:integer;

begin
randomize;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
end;

begin
for i:=1 to n do
begin
for j:=1 to n do
begin
if i<j then a[i,j] :=maxa;
write(a[i,j]:4);
if i<j then a[i,j] := mina;
write(a[i,j]:4);
end;
writeln;
end;


for j:=1 to n do
for i:=2 to n do
for k:=i downto n do
if a[k-1,j]<a[k,j] then
begin
Temp:=a[k-1,j];
a[k-1,j]:=a[k,j];
a[k,j]:=temp;
end;

writeln;
writeln('=========================' );
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:3);
end;
end;end.

получилось так напишите тогда где что изменить ?? (плз)

[Sazary]

получилось так напишите тогда где что изменить ?? (плз)

Накидали, видимо, не глядя.
Ну да ладно. С мертвой точки сдвинулись.

program QQ;
uses crt;
const n=5;
var a : array[1..n,1..n] of integer;
i,j,k,t,temp:integer;
max, min : integer;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
 writeln;
 for j:=1 to n do
  begin
  a[i,j]:=random(10);
  write(a[i,j]:3);
  end;
 end;

max := a[1,2];
min := a[2,1];
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  if (i<j) and (a[i,j]>max) then max := a[i,j];
  if (i>j) and (a[i,j]<min) then min := a[i,j];
  end;
 writeln;
end;

writeln('Maximum: ',max);
writeln('Minimum: ',min);

for j:=1 to n do
 begin
 for i:=1 to n-1 do
  begin
  t := i;
  for k:=i+1 to n do
   if a[k,j]<a[t,j] then t := k;
  temp := a[t,j];
  a[t,j] := a[i,j];
  a[i,j] := temp;
  end;
 end;

writeln;
writeln('=========================');
for i:=1 to n do
 begin
 writeln;
 for j:=1 to n do
  write(a[i,j]:3);
 end;

 readln;
end.

[Style00001]

Сообщение от Sazary

Накидали, видимо, не глядя.
Ну да ладно. С мертвой точки сдвинулись.

program QQ;
uses crt;
const n=5;
var a : array[1..n,1..n] of integer;
i,j,k,t,temp:integer;
max, min : integer;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
 writeln;
 for j:=1 to n do
  begin
  a[i,j]:=random(10);
  write(a[i,j]:3);
  end;
 end;

max := a[1,2];
min := a[2,1];
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  if (i<j) and (a[i,j]>max) then max := a[i,j];
  if (i>j) and (a[i,j]<min) then min := a[i,j];
  end;
 writeln;
end;

writeln('Maximum: ',max);
writeln('Minimum: ',min);

for j:=1 to n do
 begin
 for i:=1 to n-1 do
  begin
  t := i;
  for k:=i+1 to n do
   if a[k,j]<a[t,j] then t := k;
  temp := a[t,j];
  a[t,j] := a[i,j];
  a[i,j] := temp;
  end;
 end;

writeln;
writeln('=========================');
for i:=1 to n do
 begin
 writeln;
 for j:=1 to n do
  write(a[i,j]:3);
 end;

 readln;
end.

спасибо спасибо спасибо и еще тысячу раз спасибо )))