Вычислить произведения элементов массива A1, A2, …, A70, кратных 5 — QBasic(Бейсик)

DIM A(1 TO 70)
sum = 0
FOR i = 1 TO 70
    A(i) = FIX(RND * 101)
    IF A(i) MOD 5 = 0 THEN sum = sum + A(i)
NEXT
PRINT sum

Leave a Comment