Вопрос задан 06.05.2019 в 03:44. Предмет Информатика. Спрашивает Сабитов Даниил.

Дан целочисленный массив на 10 элементов.Найти количество и сумму элементов кратных k

0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Лахман Діма.
Var a:array[1..10] of integer;
i,k,s,r:integer;
begin
for i:=1 to 10 do readln(A[i]);
writeln('Введите число k');
readln(k);
s:=0;
r:=0;
for i:=1 to 10 do 
 if (A[i]modk=0) then begin
 r:=r+1;
 s:=A[i]+s;
end;
writeln(s,r);
end.


0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Для решения этой задачи нам понадобится цикл, который будет перебирать все элементы массива и проверять, кратны ли они числу k. Если элемент кратен k, то мы увеличиваем счетчик количества кратных элементов на 1 и добавляем значение этого элемента к сумме.

Вот пример кода на языке Python, который решает данную задачу:

```python # Заданный целочисленный массив arr = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10] # Число k k = 3

# Инициализация счетчика количества кратных элементов и переменной для суммы count = 0 sum = 0

# Перебор всех элементов массива for num in arr: # Проверка, кратен ли элемент числу k if num % k == 0: # Увеличение счетчика количества кратных элементов count += 1 # Добавление значения элемента к сумме sum += num

# Вывод результата print("Количество элементов, кратных", k, ":", count) print("Сумма элементов, кратных", k, ":", sum) ```

В данном примере массив `arr` содержит числа от 1 до 10. Мы ищем количество и сумму элементов, которые кратны числу `k`, которое равно 3. В результате выполнения кода получим:

``` Количество элементов, кратных 3 : 3 Сумма элементов, кратных 3 : 18 ```

Таким образом, в данном массиве 3 элемента (числа 3, 6 и 9) кратны числу 3, их сумма равна 18.

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос