Напишите программу на qbasic, которая в последовательности целых чисел определяет количество чисел, кратных 3 и оканчивающихся на 2. программа получает на вход количество чисел в последовательности, а затем сами числа. количество чисел не превышает 1000. введенные числа по модулю не приевышают 30 000. программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 2.
DIM A(1000)
INPUT "Please, enter the number of sequence elements ", N
FOR I = 1 TO N
PRINT "Please, enter an integer number ", I
INPUT A(I)
NEXT
J = 0
FOR I = 1 TO N
J = J + 1 - SGN((ABS(A(I)) - 12) MOD 10)
NEXT
PRINT "The result is ", J