[maxmaslo]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var mas:array [1..4,1..4] of integer;
mas2:array [1..4] of integer;
i,j,buf,min,imin:integer;
begin
for i:=1 to 4 do
    for j:=1 to 4 do
     mas[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
for i:=1 to 4 do
    mas2[i]:=mas[i,i];
for i:=1 to 4 do
begin
     min:=mas2[i];
     for j:=1 to 4 do
               if (mas2[j]>min) then
                              begin
                                     min:=mas2[j];
                                     imin:=j;
                              end;
       buf:=mas2[i];
       mas2[i]:=mas2[imin];
       mas2[imin]:=buf;
end;
for i:=1 to 4 do
    for j:=1 to 4 do
     begin
      if(i=j)then StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i])
      else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i,j]);
    end;
end;
end.

lmikle: пользуемся тегами!!!

ошибка else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i,j]); типа "array type required"
помогите, если сможете)

[Bargest]

mas2:array [1..4] of integer;
mas2[i,j]

..........

[maxmaslo]

помог) опечатка i там одно.

[lmikle]

у тебя в этой строке не тот массив. нужен mas, который двухмерный.

ЗЫ. Обысная проблема копи-паста. Скопировал, а поменять забыл.

[maxmaslo]

тогда пишет, что типы не совпадают.

[lmikle]

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

тогда пишет, что типы не совпадают.

Блин, строка должна быть:
else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas[i,j]);

[maxmaslo]

тогда array type required.

[Bargest]

Ты бы внимательней ответы читал, иначе толку помогать... Или переменные называл СИЛЬНО РАЗНЫМИ именами.

[maxmaslo]

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

тогда array type required.

да ты прям петросян) сам читаешь сообщения?
я написал, что будет, если написать так, как вы мне говорите.

[U.B.M.]

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

Код:

      if(i=j)then StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i])
      else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i,j]);

Не напрягает что в одной строке mas2[i], а в другой mas2[i,j]?

[Bargest]

мне не нужно просто ввести матрицу в stringgrid. это реализовывается от руки после запуска программы. мне нужно ОТСОРТИРОВАТЬ ПО УБЫВАНИЮ ЭЛЕМЕНТЫ ГЛАВНОЙ ДИАГОНАЛИ.

О боже мой. Уже ТРИ раза написали, в чем проблема. Голову-то включи. Тебе пример я дал только чтобы показать, что ошибок НЕ ВОЗНИНЕТ если ты послушаешь, что говорят. Однако ты видимо читаешь даже не через слово, а через 10. Даже желания помогать нету. Ты сказал, какая у тебя ошибка - тебе показали, на что надо поменять строку, чтобы ее не было.

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

Блин, строка должна быть:
else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas[i,j]);

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

StringGrid1.Cells[j-1,i-1]:=IntToStr(mas[i,j]);

На каком еще языке надо объяснить? На китайском? 不上阵列而不是MAS2个MAS. Или на арабском? ليست على صفيف بدلا mas2 ماس