Надо написать программу в visual basic дан двумерный массив размером n*m, заполненный случайным образом. 1. заменить отрицательный элемент каждого столбца нулем 2. вставить после каждого столбца, содержащего максимальный по модулю элемент, строку из нулей. 3. удалить из него каждую строку, содержащую элемент, кратный трем 4. поменять местами первый и последний столбцы.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-20,20); a.Println;
  var flag:=true;
  var k:=0;
  var ap:=a[0];
  for var i:=1 to a.Length-1 do begin
    if a[i]>ap then begin
      if flag then begin k+=1; flag:=false end
      end
    else flag:=true;
    ap:=a[i]
    end;
  Writeln('Кол-во участков возрастания: ',k)
end.

Пример
n= 15
-17 -2 -11 14 6 -3 -16 13 -13 -12 -16 2 15 -1 -20
Кол-во участков возрастания: 5

Const
   N = 13;
Type
   Mass = array[1..N] of real;

Var
   f:file of real;
   A:Mass;
   Max:integer;

Procedure CF(f:file of real);
Begin
Assign(f,'File.real');
Rewrite(f);
For var i:= 1 to N do
    Write(f,N*(random-random))
End;

Procedure RF(f:file of real; Var A:Mass; Var Max:integer);
Var
   i:integer;
Begin
Reset(f);
Write('Исходный массив:');
Max:=1;
For i:= 1 to N do
    Begin
    Read(f,A[i]);
    Write(' ',A[i]:0:3);
    if A[i] > A[Max] then Max:=i;
    End;
WriteLn;
End;

Begin
CF(f);
RF(f,A,Max);
WriteLn('Max = A[',Max,'] = ',A[Max]:0:3);
End.

Пример работы программы:

Исходный массив: 8.731 1.629 1.482 9.547 3.067 -3.207 9.701 -2.065 -0.447 -0.980 -4.818 -0.603 -2.742
Max = A[7] = 9.701