Ты где её скачал. есле на spakes то не надо всё в орхиве а если на други то если нет в орхиве пичатай в яндыксе ключи для программы ив стовляеш название программы удачи
Вариант на C++:
#include <iostream>
#include <vector>
#include <algorithm>
#include <iterator>
int main()
{
int N, mult(1);
std::cin >> N;
std::vector<int> arr(N);
for(auto i = arr.begin(); i != arr.end(); i++)
{
std::cin >> *i;
if(std::distance(arr.begin(), i) % 2 == 0)
mult *= *i;
}
std::copy(arr.cbegin(), arr.cend(), std::ostream_iterator<int>(std::cout, " "));
std::cout << std::endl << mult << std::endl;
return 0;
}
Visual Basic? Их много, вот, например, на VB.NET
Sub Main()
Dim N As UInteger
Dim Num As Integer
Dim A As String = String.Empty
N = Integer.Parse(Console.ReadLine())
For i As UInteger = 1 To N
Console.Write(i.ToString() + " ")
Num = Integer.Parse(Console.ReadLine())
If Num = 0 Then
A += i.ToString()
End If
Next
Console.WriteLine()
Console.WriteLine()
Console.WriteLine(A.Length)
Console.WriteLine()
For Each i As Char In A
Console.WriteLine(i)
Next
Console.ReadKey()
End Sub