с задачей на питоне Билет называют «счастливым», если в его номере сумма первых трех цифр совпадает с суммой трех последних. Составить программу подсчета числа тех «счастливых» билетов, у которых сумма трех первых и трёх последних цифр равна 13. Количество проверяемых билетов вводят с клавиатуры.

Объяснение:

Сначала заполним массив, затем выведем его содержимое.

---

   Sub Main()

       Dim a as Double = 1

       Dim b as Double = 15

       Dim h as Double = 0.92

       

       Dim n as Integer = int((b - a) / h)

       Dim Z() As Double = New Double(n) {}

       Dim i as Double

       For i = 0 To n

           Z(i) = Math.Cos(a + h * i) + Math.Tan(a + h * i)

       Next

       

       

       For i = 0 To n

           Console.WriteLine("Z(" & i+1 & ") = " & Z(i))

       Next

   End Sub

---

Результат работы этой программы:

Z(1) = 2.09771003052304

Z(2) = -3.0884493200958

Z(3) = -1.26594678050156

Z(4) = -0.103295451547362

Z(5) = 30.831517973736

Z(6) = -0.0383774051794511

Z(7) = 1.21343345934296

Z(8) = 2.67822720165008

Z(9) = -2.28928714730523

Z(10) = -1.13533602598861

Z(11) = 0.265586431867902

Z(12) = -7.87130103019394

Z(13) = 0.283584171679959

Z(14) = 1.3388270225723

Z(15) = 4.05676371484264

Z(16) = -1.89632897888172

Int n = 20; // типа константа       
int k = 0;       
int j = 0;       
int[] massive = new int[n];       
for (int i = 0; i < n; i++) {           
massive[i] = scanner.nextInt(); // вводим элементы и записываем в массив        }
while (j < massive.length) { // пока меньше размера массива
if (massive[j] % 5 == 0 && j < massive.length - 1 && massive[j + 1] % 5 == 0)
//если элемент массива делится на 5 без остатка и при этом не является последним элементом и следующий элемент тоже делится на 5 без остатка
{   k++;   //увеличиваем число пар на 1                
    j++;    //увеличиваем шаг,перескакиваем через один элемент,так как следующий тоже делится на 5 без остатка         
}
 else if (massive[j] % 5 == 0)
// во всех других случаях если элемент делится на 5 без остатка
{                k++; // увеличиваем число пар            }
            j++; // увеличиваем шаг на 1
        }
        System.out.println(k); // выводим количество пар