Дан линейный массив A[1..N], содержащий целые числа. Посчитать сумму чисел, имеющих одинаковые остатки при делении на 7 и на 2 и распечатать номера таких чисел.
Ответы на вопрос
Ответил Аноним
0
PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), -99, 99);
a.Println;
var s:=0;
for var i := 0 to a.High do
if (a[i] mod 7) = (a[i] mod 2) then
begin
Print(i + 1);
s+=a[i]
end;
Println;
Print('S =',s)
end.
Пример
n= 20
-66 27 -82 -18 -35 -41 34 -58 61 15 11 -43 -16 37 -99 69 -52 -97 16 -21
10 12 15
S = -127
Ответил Розывогороде
0
Что-то мне кажется , что не правильно
Ответил Аноним
0
Пример есть, проверьте ручным счетом.
Ответил Аноним
0
Ох...Вы правы, надо сумму, а не числа! Сейчас поправлю, минуту
Ответил Аноним
0
Т.е. надо и сумму, и номера. Я сумму забыл))
Ответил Аноним
0
Все
Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
История,
7 лет назад
Биология,
7 лет назад
Математика,
9 лет назад