
Даннмассив натуральных чисел. Массив заполнить произвольно случайными числами и вывести в одну
строку. Найти сумму элементов. Кратных данному k. Вывести с клавы.Плиизз. Контра.

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

const N = 20;
var a: array [1..N] of integer;
i, k, sum, s: integer;
begin
for i := 1 to N do
begin
a[i] := random(11); //заполняем
sum := sum + a[i]; //Сумма всех эл-тов
end;
for i := 1 to N do
write(a[i], ' '); //Выводим
writeln; //переход на новую строку
writeln(sum);
readln(k);
for i := 1 to N do
if ((a[i] mod k) = 0) then
s := s + a[i]; //сумма эл-тов кратных k
writeln(s);
end.



Для решения данной задачи, вам потребуется написать программу на языке программирования. Я могу помочь вам с написанием кода на языке Python, если вы согласны. Вот пример кода, который решает вашу задачу:
```python import random
# Вводим значение k с клавиатуры k = int(input("Введите значение k: "))
# Создаем пустой массив array = []
# Заполняем массив случайными числами и выводим их в одну строку for i in range(10): num = random.randint(1, 100) array.append(num) print(num, end=" ")
# Находим сумму элементов, кратных k sum_multiple_of_k = sum([num for num in array if num % k == 0])
# Выводим сумму на экран print("\nСумма элементов, кратных", k, ":", sum_multiple_of_k) ```
В этом коде мы сначала вводим значение k с клавиатуры. Затем мы создаем пустой массив и заполняем его случайными числами с помощью функции `random.randint()`. После этого мы выводим элементы массива в одну строку. Затем мы находим сумму элементов, кратных k, с помощью генератора списка и функции `sum()`. Наконец, мы выводим сумму на экран.
Пожалуйста, попробуйте запустить этот код и проверьте его работу. Если у вас возникнут вопросы или потребуется дополнительная помощь, я буду рад помочь вам!


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








Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili