{* Задача74 *}

REM basic

' Определить для массива X(n) алгебраические суммы четных и нечетных элементов массива. Вывести исходный массив и полученные значения. Упорядочить массив X(n) по возрастанию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел.


CLS
  INPUT "Vvedite kol-vo elementov: ", n
  Dim X(n) As Integer
   
  PRINT "________ Ishodnyj ________"
  For i = 1 To n
    X(i) = RND * 30
    PRINT X(i);
  Next

  For i = 1 To n
    If X(i) And 1 Then
      S2 = S2 + X(i)
    Else S1 = S1 + X(i)
    End If
  Next: PRINT
   
  For j = n - 1 To 1 Step -1
     For i = 1 To j
        If X(i) > X(i + 1) Then SWAP X(i), X(i + 1)
     Next
  Next
   
  PRINT "_________ Novyj __________"
  For i = 1 To n
    PRINT X(i);
  Next: PRINT : PRINT "__________________________"
PRINT "Summa chetnyh  : "; S1
PRINT "Summa nechetnyh: "; S2
End