?>
1. Яким є порядок розв'язування задач, у яких передбачено опрацювання деякої сукупності даних? 2. Як зміни елементів масиву мовою програмування Free Pascal, а які — мовою програмування Python? Чи можна вважати, що за зміни табличних величин одна мова переважає іншу? 3. Які елементи управління в середовищі Lazarus можна використати для введення й виведення елементів масиву? 4. Як описати алгоритм зміни значень табличних елементів мовами програ- мування Free Pascal, Python? 5. Як описати алгоритм знаходження суми чи добутку значень табличних елементів мовами програмування Free Pascal, Python? 6. Як описати алгоритм знаходження суми чи кількості табличних елементів, що відповідають заданим умовам, мовами програмування Free Pascal, Python?
Ответы
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