Двумерный массив Delphi

[MrMorozko]

Всем доброго времени суток
Прошу помочь доделать програму

var i,j,s,max,min:integer;
begin
for i:=0 to n-1
max:=a[i,0];
min:=a[i,0];
for j:=0 to m-1 do if a[i,j]>max then begin
max:=a[i,j];
end;
for j:=0 to m-1 do if a[i,j]<min then begin
min:=a[i,j];

как реалтзовать так что бы после нахождения максимального и минимального элемента строки они менялись с перым и последним элементом соответственно. Спасибо. За час еще нужно достаточное количество программ сделать очень прошу помощи..тема будет пополняться вопросами заранее огромное спасибо! Реально некоторые вещи просто недоходят путаюсь

Ссылка на темку с задачей http://programmersforum.ru/showthrea...318#post683318



В чем может быть ошибка задача 2

procedure TForm1.Button1Click(Sender: TObject);
var
i,j, n,i1,i2,m,t : integer;
a : array [0..50, 0..50] of integer;
begin
n := 7;
for i:=1 to n do
begin
i1:=1;i2:=1;
for j:=2 to m do begin
if a[i,j]>a[i,i1] then i1:=j;
if a[i,j]<a[i,i2] then i2:=j;
end;
t:=a[i,1];
a[i,1]:=a[i,i1];
a[i,i1]:=a[i,1];
t:=a[i,m];
a[i,m]:=a[i,i2];
a[i,i2]:=a[i,m];

   StringGrid1.Cells[i,j] := IntToStr(a[i,j]);

[Asker13]

a[i,i1]:=a[i,1];
Надо бы заменить на
a[i,i1] := t;


a[i,i2]:=a[i,m];
На
a[i,i2]:=t;

2 Задача.

for i := 1 to 7 do
 if i < N div 2 then
  for j := i to 8-i do
    a[i,j] := 1;
  else
  for j := 8-i downto i do
    a[i,j] := 1;

Как вариант. Как мне кажется, есть более лаконичное решение, но с утра голова не варит совсем. =)

[MrMorozko]

Проверте пожалуйста что то не так

procedure TForm1.Button1Click(Sender: TObject);
var
i, j, n, m, mx,imx,sm: integer;
a : array [0..50, 0..50] of integer;
begin
Randomize;
n := StrToInt(Edit1.Text);
m := StrToInt(Edit2.Text);
for i := 0 to n - 1 do
 for j := 0 to m - 1 do
 a[i,j]:=Round(Sin(Random(100))*100);
 StringGrid1.RowCount:=n+1;
 StringGrid1.ColCount:=m+1;
 with StringGrid1 do
  begin
   i:=0 ;
   for j:=1 to RowCount do
   Cells[i,j]:=IntToStr(j);
   j:=0 ;
   for i:=1 to ColCount do
   Cells[i,j]:=IntToStr(i);
   end;
   with StringGrid1 do
   for i:=1 to n do
   for j:=1 to m do
   Cells[i,j]:=IntToStr(a[i-1,j-1]);
   mx:=0;
for i:=1 to n do
mx:=mx+a[1,i];
imx:=1;
for i:=1 to m do
 begin
  sm:=0;
  for j:=1 to n do
  sm:=sm+a[i,j];
  if sm>mx then
   begin
    mx:=sm;
    imx:=i;
    Label3.Caption:=IntToStr(i);
   end;
    end;
    end;

Нужно найти строку с минимальной суммой и в ней максимальный элемент

[MrMorozko]

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

[COLOR="Red"]

Спасибо))Как я понимаю двое с половиной суток вообще не сплю

[Asker13]

for i:=1 to n do
mx:=mx+a[1,i];

imx:=1;
for i:=2 to m do begin
  sm:=0;
  for j:=1 to n do sm:=sm+a[i,j];
  if sm<mx then
   begin
    mx:=sm;
    imx:=i;
    Label3.Caption:=IntToStr(i);
   end;

Попробуйте вот так. У вас условие было неверное (if sm>mx then), это условие для нахождение максимума, а не минимума. Ну а найдя строку, максимальный элемент найти просто, по аналогии, как вы делали. =)

[MrMorozko]

Спасибо вам

а вот еще

for i := 1 to 7 do
 if i < N div 2 then
  for j := i to 8-i do
    a[i,j] := 1;
  else
  for j := 8-i downto i do
    a[i,j] := 1;

Это заполнения массива по правилу что интересно он не ругаеться но массив не выводит..
Вот так моя процедура выглядит

procedure TForm1.Button1Click(Sender: TObject);
var
i,j, n,i1,i2,m,t : integer;
a : array [0..50, 0..50] of integer;

begin
for i := 1 to 7 do
 if i < N div 2 then
  for j := i to 8-i do
    a[i,j] := 1
  else
  for j := 8-i downto i do
    a[i,j] := 1;

   StringGrid1.Cells[i,j] := IntToStr(a[i,j]);
  end;

[MrMorozko]

Как вы начали помогать аж жить как то захотелось XD спасибо еще раз щас хоть что то вкуривать начинаю, ненадо было пары прогуливать раньше)

[Hacker19_90]

Это заполнения массива по правилу что интересно он не ругаеться но массив не выводит..
Вот так моя процедура выглядит
Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j, n,i1,i2,m,t : integer;
a : array [0..50, 0..50] of integer;

begin
for i := 1 to 7 do
if i < N div 2 then
for j := i to 8-i do
a[i,j] := 1
else
for j := 8-i downto i do
a[i,j] := 1;

StringGrid1.Cells[i,j] := IntToStr(a[i,j]);
end;

А вот у меня к вам вопрос вы после цикла к каким индексам обращаетесь
вот в это месте
StringGrid1.Cells[i,j] := IntToStr(a[i,j])
Судя по коду по не известным!
Вот поэтому массив и не выводится!

Возможно такая поправочка решит дело

procedure TForm1.Button1Click(Sender: TObject);
var
i,j, n,i1,i2,m,t : integer;
a : array [0..50, 0..50] of integer;

begin
for i := 1 to 7 do
if i < (N div 2) then
for j := i to 8-i do
begin
a[i,j] := 1
StringGrid1.Cells[i,j] := IntToStr(a[i,j]);
end
else
for j := 8-i downto i do
begin
a[i,j] := 1;
StringGrid1.Cells[i,j] := IntToStr(a[i,j]);
end;
end;

[MrMorozko]

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

Возможно такая поправочка решит дело

procedure TForm1.Button1Click(Sender: TObject);
var
i,j, n,i1,i2,m,t : integer;
a : array [0..50, 0..50] of integer;

begin
for i := 1 to 7 do
if i < (N div 2) then
for j := i to 8-i do
begin
a[i,j] := 1
StringGrid1.Cells[i,j] := IntToStr(a[i,j]);
end
else
for j := 8-i downto i do
begin
a[i,j] := 1;
StringGrid1.Cells[i,j] := IntToStr(a[i,j]);
end;
end;

Вот что получилось после поправки


А желательно бы вот

[Hacker19_90]

Странно а у меня код другой!