Дан линейный массив A[1..N], содержащий целые числа.
Вычислить сумму чисел, имеющих одинаковые остатки при делении на 7 и на 2, и распечатать номера таких чисел.

clsinput ndim A(n)for i=1 to n  A(i)=int(rnd*100)next ifor 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 ifnext iprintprint s