Матрица 7х7

Suicide Silence · 28.06.2011, 23:25

Матрица 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 · 29.06.2011, 10:07

Цитата:

Сообщение от Suicide Silence

Матрица 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 · 29.06.2011, 21:16

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

28.06.2011, 23:25	#1 (permalink)
Suicide Silence Новичок Регистрация: 27.06.2011 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Матрица 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.

28.06.2011, 23:25
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Темы которые подобны вашей уже были на нашем форуме Подойдет ли матрица? Матрица NxN Массив и матрица Матрица Матрица Матрица для ноутбука

29.06.2011, 21:16	#3 (permalink)
Suicide Silence Новичок Регистрация: 27.06.2011 Сообщений: 8 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Vladimir_S Спасибо Вам огромное! Безумно благодарен=)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070