• Сделать одномерный массив.
    В массив A[N] занесены натуральные числа. Найти сумму тех элементов, каторые кратны данному значению К. Элементы массива вводить с клавиатуры.

Ответы 1

  • Var i, k, n, sum: Integer;    a: Array[1..1000000] of Integer;begin  ReadLn(n, k);  for i:=1 to n do a[i]:=i;  sum:=0;  for i:=1 to n do    if a[i] mod k = 0 then      sum:=sum+a[i];  WriteLn(sum); end.
    • Автор:

      chance96
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years