{* Задача99 *}

REM basic

' С клавиатуры вводится размерность одномерного массива. С помощью генератора случайных чисел заполнить массив целыми числами из [-100;100] и сообщить количество элементов кратных 5, но отрицательных. Распечатать массив в строчку.


CLS
INPUT "kol-vo elementov"; n
Dim a(n)
PRINT "massiv:"
For i = 1 To n
a(i) = INT(201 * RND(1) - 100)
PRINT a(i);
If a(i) < 0 And a(i) / 5 = INT(a(i) / 5) Then k = k + 1
Next
PRINT
PRINT "kol-vo elementov:"; k
End