{* Задача311 *}

REM basic

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


CLS
RANDOMIZE TIMER
INPUT n
Dim x(n)
PRINT "Исходный массив: "
For i = 1 To n
        x(i) = INT(RND * 100)
        If x(i) Mod 10 = 7 Or x(i) Mod 10 = 5 Then k = k + 1
        PRINT x(i);
Next i
PRINT
PRINT "Цифр оканчивающихся на 5 и 7: "; k
PRINT "Полученный массив: "
For j = 1 To n
For i = 1 To n
        If x(i) > x(i - 1) Then SWAP x(i), x(i - 1)
Next i
Next j
 
For i = 1 To n
        PRINT x(i);
Next i
End