Дан целочисленный массив из 10 элементов. Написать программу, находящую сумму…

Question

71

Дан целочисленный массив из 10 элементов. Написать программу, находящую сумму элементов массива кратных 3 или 5?

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

svensoft · Accepted Answer

47

svensoft

09 марта 2023

Dim i As Integer Dim Massiv () As IntegerDim Summ As IntegerFor i=0 To Massiv.Length — 1 If Massiv (i) Mod 2=0 Or Massiv (i) Mod 3=0 Then Summ+=Massiv (i) Next' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 MsgBox (Summ)

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: