Для целочисленного массива а, содержащего 10 элементов, определить кратна ли его сумма 7? составить программу

Question

Информатика: Для целочисленного массива а, содержащего 10 элементов, определить кратна ли его сумма 7? составить программу в basic

enatusya55 · Answer

Dim A(10) As Integer, S As IntegerS = 0For i = 1 To 10   S = S + A(i)Next iIf S Mod 7 = 0 Then Print YES Else Print NO End...

Для целочисленного массива а, содержащего 10 элементов, определить кратна ли его сумма 7? составить программу в basic