Задание:
Помогите пожалуйста! Для целочисленного массива А, содержащего 10 элементов, определить кратна ли его сумма 7? Составить программу вBasic
Решение:
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
Знаете другой ответ?