4. замените в массиве из 10 случайных чисел, каждое из которых лежит в пределах от 1 до 10, все нечетные элементы единицами и выведите полученный массив на форму. b visualbasic

2.) var x1, y1, x2, y2, n1, n2: real; begin write('x1, y1: '); read(x1, y1); write('x2, y2: '); read(x2, y2); n1: = sqrt(sqr(x1)+sqr(y1)); writeln(n1); n2: = sqrt(sqr(x2)+sqr(y2)); writeln(n2); if n1< > n2 then if n1< n2 then writeln('1 точка находится ближе к началу координат.') else writeln('2 точка находится ближе к началу координат.') else writeln('точки находятся на равном расстоянии от начала координат.') end.3.)var n, x, a, b, c, s: integer; beginwrite('введите число: '); readln(n); if (n> 99) and (n< 1000) thenbeginwrite('введите x: '); readln(x); a: = n div 100; b: = (n - a*100) div 10; c: = (n - a*100 - b*10); if a=x then s: =s+1; if b=x then s: =s+1; if c=x then s: =s+1; if s> 0 thenwriteln('в числе есть ', x)else  writeln('в числе нет ', x); endelsewriteln('число не трехзначное'); end.

Это  основной код макроса с циклом перебора всех нечетных чисел sub summfactorial()   dim summ as long   dim i as byte   for i = 1 to 9 step 2       summ = summ + fact(i)   next i   msgbox (summ) end sub а эта функция вызывает сама себя (рекурсия) для расчета факториала function fact(s as byte) as long    if s < = 1 then       fact = 1   else       fact = s * fact(s - 1)   end if end functionи  уточните, если нужно, что должно быть в подпрограмме - весь код или только расчет факториала