Есть ответ 👍

Сделать одномерный массив. в массив a[n] занесены натуральные числа. найти сумму тех элементов, каторые кратны данному значению к. элементы массива вводить с клавиатуры.

213
458
Посмотреть ответы 2

Ответы на вопрос:


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.

6+2=8 6-2=4 8+4=12 8-4=4 4+4=8                                                                     шестикутник-6,зірочка-2. ромбик-8,кружечок-4

Популярно: Информатика