Надо написать программу в visual basic дан двумерный массив размером n*m, заполненный случайным образом. 1. заменить отрицательный элемент каждого столбца нулем 2. вставить после каждого столбца, содержащего максимальный по модулю элемент, строку из нулей. 3. удалить из него каждую строку, содержащую элемент, кратный трем 4. поменять местами первый и последний столбцы.
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.