
Вопрос задан 17.02.2021 в 23:15.
Предмет Информатика.
Спрашивает Черноблавская Мария.
Напишите программу, которая генерирует массив из случайных чисел от 20 до 85 в количестве не более
30 чисел. После этого необходимо посчитать количество чисел, больших введенного вами с клавиатуры. Hellp решает игоговую оценку

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

Отвечает Пархомчик Елизавета.
Program n1;
const n=15;
var a: array[1..n] of integer;
i,b,k: integer;
begin
randomize;
write('массив: ');
for i:=1 to n do begin
a[i]:=random(66)+20;
write(a[i],' ');
end;
writeln;
write('введите число: ');
readln(b);
k:=0;
for i:=1 to n do if a[i]>b then k:=k+1;
write('k=',k);
end.
const n=15;
var a: array[1..n] of integer;
i,b,k: integer;
begin
randomize;
write('массив: ');
for i:=1 to n do begin
a[i]:=random(66)+20;
write(a[i],' ');
end;
writeln;
write('введите число: ');
readln(b);
k:=0;
for i:=1 to n do if a[i]>b then k:=k+1;
write('k=',k);
end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно! Вот пример программы на языке Python, которая генерирует массив случайных чисел и подсчитывает количество чисел, больших заданного пользователем значения:
pythonimport random
# Генерация массива случайных чисел
array = [random.randint(20, 85) for _ in range(random.randint(1, 30))]
# Вывод сгенерированного массива
print("Сгенерированный массив:", array)
# Ввод числа с клавиатуры
user_input = int(input("Введите число: "))
# Подсчет количества чисел, больших заданного значения
count = len([num for num in array if num > user_input])
# Вывод результата
print("Количество чисел, больших", user_input, ":", count)
Программа сначала генерирует массив случайных чисел от 20 до 85 с помощью генератора списков. Затем выводит этот массив на экран. Пользователю предлагается ввести число с клавиатуры, после чего программа подсчитывает количество чисел в массиве, которые превышают заданное значение. Результат выводится на экран.
Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.


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

Информатика 565

Информатика 25

Информатика 22

Информатика 27

Информатика 34

Информатика 58

Информатика 63

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