двумерные массивы

[StudentFIU]

Дан двумерный массив размером n*m, заполненный случайным образом.

1. Заменить нулевой элемент каждого столбца максимальным по модулю элементом массива

2. Вставить после каждой строки, содержащей максимальный по модулю элемент, последнюю строку.

3. Удалить из него каждую строку, содержащую нулевой элемент

4. Поменять местами два средних столбца.

[NiCola999]

твои наработки в студию

[Namolem]

если с нуля, пиши в асю - за вознаграждения
если не с нуля - показывай свой код

Если хочешь помочь голодающему-не давай ему рыбу,дай ему удочку!А как по-вашему?

[NiCola999]

хорошо бы еще язык указывать

[Z1000000]

Первые два пункта на Delphi. Остальное в мыло.

uses Math;
type TwoDimentionalArray = array of array of Integer ;
procedure HandlingArray;
var
 myAr : TwoDimentionalArray ;
 maxElem : Integer ;
 i,j,k : integer ;
 n, m : integer ;
 maxflag : Integer ;
begin
n := 10;
m := 10;
// создание и заполнение массива
SetLength ( myAr, n );
for i := 0 to n-1 do
 SetLength ( myAr[i], m );
Randomize;
for i := 0 to n-1 do
 for j := 0 to m-1 do
  myAr[i][j] := RandomRange(-2147483648 ,2147483647);
//  myAr[i][j] := RandomRange(-128 ,127);
  // Введем для наглядности пару нулей
  myAr[Random(High(myAr)+1), Random(High(myAr[0]) + 1)] := 0;
  myAr[Random(High(myAr)+1), Random(High(myAr[0]) + 1)] := 0;

// идем максимальный по модулю элемент
maxElem := 0;
for i := 0 to n-1 do
 for j := 0 to m-1 do
  begin
   if abs(myAr[i][j]) > abs (maxElem) then maxElem := myAr[i][j];
  end ;

// Заменить нулевой элемент каждого столбца максимальным по модулю элементом массива
for i := 0 to n-1 do
 for j := 0 to m-1 do
  begin
  if myAr[j][i] = 0 then myAr[j][i] := maxElem;
  end ;
// Вставить после каждой строки, содержащей максимальный по модулю элемент, последнюю строку.
i := 0;
while ( i < Length(myAr) ) do
 begin
 maxflag := 0;
 for j := 0 to m-1 do
  if myAr[i][j] = maxElem then begin maxflag := 1; break; end ;
 if maxflag = 1 then
  begin
  SetLength ( myAr, Length(myAr) + 1 ) ;
  SetLength ( myAr[High(myAr)], m );
  for k := High(myAr) downto i+2 do
   begin
   myAr[k] := myAr[k-1];
   end ;
  myAr[i+1] := myAr[high(myAr)];
  i := i + 2;
  continue;
  end ;
 i := i + 1 ;
 end ;
end;