
Создать одномерный массив из 20 элементов, значения элементов массива взять от -100 до 100, вывезти
массив на экран в одну строку, определить количество элементов массива (к) равных числу Р (число Р вводится из клавиатуры)

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

Ответ:
Program pp;
var
i,p,c:integer;
a:array[1..20]of integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(-100,100);
write(a[i], ' ');
end;
write('Введите p');
read(p);
for i:=1 to 20 do
begin
if(p = a[i]) then
begin
inc(c);
end;
end;
write('Равных элементов в массиве числу P =',c);
end.
Объяснение:
создали массив создали 20 рандомных чисел сравнили их с числом p и в случаи успешного условия прибавляем C на 1 и потом просто вывели C в консоль.



Для создания одномерного массива из 20 элементов и выполнения указанных действий, можно использовать язык программирования Python. Вот пример кода, который решает задачу:
pythonimport random
def create_random_array(size, lower_bound, upper_bound):
return [random.randint(lower_bound, upper_bound) for _ in range(size)]
def count_occurrences(arr, target):
return arr.count(target)
# Создание массива с 20 элементами от -100 до 100
array = create_random_array(20, -100, 100)
# Вывод массива на экран в одну строку
print("Массив:", array)
# Ввод числа Р с клавиатуры
num_P = int(input("Введите число Р: "))
# Определение количества элементов массива, равных числу Р
count_P = count_occurrences(array, num_P)
print(f"Количество элементов массива, равных числу Р ({num_P}): {count_P}")
Обратите внимание, что в данном примере используется функция create_random_array
, чтобы создать массив с рандомными значениями от -100 до 100. Функция count_occurrences
используется для определения количества элементов массива, равных введенному пользователем числу Р.


Похожие вопросы


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







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