Дан линейный массив 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