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

1 первым здоровается тот, кто входит в помещение. при знакомстве и представлении будет уместна корректная, сдержанная улыбка. если людей представляет кто-то третий, знакомство идет по очереди.

2крайне некультурно говорить о третьем лице, используя безымянные местоимения или обобщающие наименования - «он», «она», «женщина», «мужчина», «человек», «эй».

3при встрече со знакомыми и даже малознакомыми людьми принято доброжелательно здороваться, невнятное бурчание под нос воспринимается хуже, чем отсутствие .

4   вступать в спор по пустякам, высмеивать чужое мнение и сыпать оскорбительными остротами и колкостями в адрес других - признаки дурного тона.

5   входя в помещение, мужчина должен снять головной убор, женщина может оставаться в шляпе. не принято входить без стука, с незатушенной сигаретой. мужчина всегда пропускает женщину вперед. в этом правиле есть исключения - первым из лифта, машины, других транспортных средств выходит мужчина и подаёт женщине руку, даже незнакомой.

var  i: integer;   a: array [1..15] of integer;

begin  write('исходный массив: ');   for i: = 1 to 15 do //формируем и распечатываем массив  begin    a[i]: = random(8);       write(a[i],' ');   end;   writeln; //перевод на новую строку  write('преобразованный массив: ');   for i: = 1 to 15 do  begin    if a[i] mod 2 = 0 then a[i]: = a[i] + 1 {если элемент массива с индексом i четный, то прибавляем к нему 1, иначе умножаем на 2}    else a[i]: = a[i] * 2;     write(a[i], ' ');   end;   writeln; {перевод на новую строку, чтобы при повторном запуске программы сформированный массив печатался на новой строке}end.

отметь решение, как лучшее )