[Kate23]

Дан двумерный массив размером n*m, заполненный случайным образом.
-Заменить максимальный элемент каждой строки нулем
-Вставить после каждого столбца, содержащего максимальный элемент массива, столбец из нулей.

[NumLock]

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

-Вставить после каждого столбца, содержащего максимальный элемент массива, столбец из нулей.

а если это последний столбец то размерность увеличить?

[Kate23]

наверно...сама понять не могу

[Outlaw]

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

а если это последний столбец то размерность увеличить?

Логично, я думаю так и нужно поступить.

Так а у автора в чем проблема с задачей? Что не ясно? В чем помощь требуется?

[Kate23]

PHP код:

unit Unit15;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids,Math;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,n,m,max:integer;
a:array[0..30,0..30]of integer;
begin
Randomize;
n:=strtoint(Edit1.Text);
m:=strtoint(Edit1.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[j,i]:=Inttostr(a[i-1,j-1]);

begin
for j := 1 to m-1 do
begin
max := a[0,0];
for i := 0 to n-1 do if a[i,j]>max then max:=a[i,j];
end;
  begin
max:=0;
end;
for i := 1 to n do
for j := 1 to m do
end;
with stringGrid2 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 StringGrid2 do
for i := 1 to n do
for j := 1 to m do
Cells[j,i]:=Inttostr(a[i,j]);
end;
end. 


не решает....