Дан линейный массив A[1..N], содержащий целые числа. Вычислить сумму чисел, имеющих одинаковые остатки при делении на 7 и на 2, и распечатать номера таких чисел.
Дан линейный массив A[1..N], содержащий целые числа.
Вычислить сумму чисел, имеющих одинаковые остатки при делении на 7 и на 2, и распечатать номера таких чисел.
Гость
Ответ(ы) на вопрос:
Гостьcls
input n
dim A(n)
for i=1 to n
A(i)=int(rnd*100)
next i
for i=1 to n
t1=A(i) mod 7
t2=A(i) mod 2
if t1=t2 then
s=s+A(i)
print i;
end if
next i
print
print s
Не нашли ответ?
Похожие вопросы