input "Chislo N:";n 
 dim a(n) 
 for b=0 to n : input a(n) : next b 
 for b=0 to n : print a(n), : next b 
 for b=0 to n/2 : a(n) = a(n) * 2: next b 
 for b=0 to n : print a(n), : next b

Sub Z4() 
 Dim A(6) As Integer 
 For j = 1 To 6 
 A(j) = Cells(1, j) 
 Next j 
 For j = 1 To 3 
 A(j) = A(j) * 2 
 Next j 
 For j = 1 To 6 
 Cells(3, j) = A(j) 
 Next j 
 End Sub

 00 = 0000 
 01 = 0001 
 02 = 0010 
 03 = 0011 
 04 = 0100 
 05 = 0101 
 06 = 0110 
 07 = 0111 
 08 = 1000 
 09 = 1001 
 10 = 1010 
 11 = 1011 
 12 = 1100 
 13 = 1101 
 14 = 1110 
 15 = 1111

 Sub zad11() 
 Dim a(6) As Integer 
 Pol = 0 
 Otr = 0 
 For i = 1 To 6 
 a(i) = Cells(1, i) 
 If a(i) > 0 Then 
 a(i) = 1 
 Pol = Pol + 1 
 Else 
 a(i) = -1 
 Otr = Otr + 1 
 End If 
 Cells(3, i) = a(i) 
 Next i 
 Cells(4, 2) = Pol 
 Cells(5, 2) = Otr 
 End Sub 
  
 Sub zad19() 
 Dim a(5, 5) As Integer 
 For i = 1 To 5 
 For j = 1 To 5 
 a(i, j) = Cells(i, j) 
 Next j 
 Next i 
 PrPol = 1 
 PrOtr = 1 
 For j = 1 To 5 
 For i = 1 To 5 
 If a(i, j) > 0 Then 
 PrPol = PrPol * a(i, j) 
 Else 
 PrOtr = PrOtr * a(i, j) 
 End If 
 Next i 
 Cells(7, j) = PrPol 
 Cells(8, j) = PrOtr 
 PrPol = 1 
 PrOtr = 1 
 Next j 
  
 End Sub 
  
 Sub zad27() 
 Dim a(6) As Integer 
 knol = 0 
 For i = 1 To 6 
 a(i) = Cells(1, i) 
 If a(i) = 0 Then 
 knol = knol + 1 
 Cells(3, i + 1) = i 
 End If 
 Next i 
 If knol > 0 Then 
 Cells(2, 2) = knol 
 Else 
 Cells(2, 2) = "нулевых элементов нет" 
 End If 
 End Sub