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

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

Задать свой вопрос
1 ответ
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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт