Сижу на информатике) 8 класс. Turbo basic. Тема: массивы. Нужно срочно найти произведение четных отрицательных чисел. или найти количество кратных трем

+ 0 -

Viktorkhomich

14 дек. 2013 г., 6:08:35 (10 лет назад)

Я в диалектах не очень, но вот вспомнил VB.net :)
 Sub Main()
        Dim a(10) As Integer
        Dim b As Integer = 1
        Dim c As Integer

        Dim R As Random = New Random()
        For i As Integer = 0 To 10
            a(i) = R.Next(12)
            Console.WriteLine("[" + i.ToString() + "] => " + a(i).ToString())
        Next

        For i As Integer = 0 To 10 
           If ((a(i) Mod 2 = 0) And (a(i) < 0)) Then b = b * a(i)
            If ((a(i) Mod 3 = 0) Or (a(i) Mod 5 = 0)) Then c = c + 1
        Next
        Console.WriteLine("Произведение чётных отрицательных: " + b.ToString())
        Console.WriteLine("Кол-во кратных 3 или 5: " + c.ToString())
        Console.Read()
    End Sub

+ 0 -

Spazzium

14 дек. 2013 г., 8:55:40 (10 лет назад)

нужен алгоритм