Question

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

Answer 1

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