Матрица 7х7

[Suicide Silence]

Матрица 7х7

Матрица 7х7 забита случайными числами от 5 до 20
найти max min поменять столбцы с max u min местами
скажите что дописать надо????
сам код в паскале таков
program pr5_1;
uses crt;
var a:array[1..7,1..7]of integer;
var max,min,i,j:integer;
begin
randomize;
clrscr;
textcolor(12);
for i:=1 to 7 do begin
for j:=1 to 7 do
a[i,j]:=random(16)+5;
end;
for i:=1 to 7 do begin
for j:=1 to 7 do
write(a[i,j]:3,' ');
writeln;
end;
min:=a[1,1];
for i:=1 to 7 do begin
for j:=1 to 7 do
if a[i,j]<min then
min:=a[i,j];
end;
writeln('min=',min);
max:=a[1,1];
for i:=1 to 7 do begin
for j:=1 to 7 do
if a[i,j]>max then
max:=a[i,j];
end;
writeln('max=',max);
writeln;
readln;
end.

 

[Vladimir_S]

Матрица 7х7 забита случайными числами от 5 до 20 найти max min поменять столбцы с max u min местами скажите что дописать надо????

Прежде всего - фиксацию номеров соответствующих столбцов, а затем - саму операцию перестановки.
С учетом этого, а также с неким косметическим приглаживанием:

program pr5_1;
uses crt;
var
 a:array[1..7,1..7] of integer;
 max,min,i,j,Jmax,Jmin,D:integer;
begin
 randomize;
 clrscr;
 textcolor(12);
 for i:=1 to 7 do
  for j:=1 to 7 do
   a[i,j]:=random(16)+5;

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

 writeln;

 min:=a[1,1];
 for i:=1 to 7 do
  for j:=1 to 7 do
   if a[i,j]<min then
    begin
     min:=a[i,j];
     Jmin:=j;
    end;
 writeln('min= ',min,' column number= ',Jmin);

 max:=a[1,1];
 for i:=1 to 7 do
  for j:=1 to 7 do
   if a[i,j]>max then
    begin
     max:=a[i,j];
     Jmax:=j;
    end;
 writeln('max= ',max,' column number= ',Jmax );

 writeln;

 for i:=1 to 7 do
  begin
   D:=a[i,Jmin];
   a[i,Jmin]:=a[i,Jmax];
   a[i,Jmax]:=D;
  end;

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

 readln;
end.

 

[Suicide Silence]

Vladimir_S
Спасибо Вам огромное!
Безумно благодарен=)