Задать вопрос
16 сентября, 01:46

Сделать одномерный массив.

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

+2
Ответы (1)
  1. 16 сентября, 05:28
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Сделать одномерный массив. В массив A[N] занесены натуральные числа. Найти сумму тех элементов, каторые кратны данному значению К. Элементы ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы