
Дан массив из 20 элементов, состоящий из целых случайных чисел. Числа находятся в интервале (-15,
1]. Выполните задание: Выведите на экран в столбец такой массив, затем, найдите количество элементов этого массива, равных 0. СРОЧНО ДАЮ 50 балов

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

Ответ:
var a:array [1..20] of integer;
i,k:integer;
begin
randomize;
k:=0;
for i:=1 to 20 do
begin
a[i]:=random(16)-14;
writeln(a[i]);
if a[i]=0 then k:=k+1
end;
write(k)
end.



Для решения данной задачи, нам необходимо сгенерировать массив из 20 случайных чисел, находящихся в интервале (-15, 1]. Затем мы выведем этот массив на экран в столбец и посчитаем количество элементов массива, равных нулю.
Вот пример кода на языке Python, который решает данную задачу:
```python import random
# Генерируем массив из 20 случайных чисел array = [random.randint(-15, 0) for _ in range(20)]
# Выводим массив на экран в столбец for num in array: print(num)
# Считаем количество элементов массива, равных нулю count_zero = array.count(0)
# Выводим количество элементов, равных нулю print("Количество элементов, равных нулю:", count_zero) ```
В данном коде мы использовали функцию `random.randint(-15, 0)`, которая генерирует случайное целое число в заданном интервале (-15, 0]. Затем мы создали цикл, который выводит каждый элемент массива на новой строке. После этого мы использовали метод `count()` для подсчета количества элементов массива, равных нулю, и вывели результат на экран.
Надеюсь, данное объяснение помогло вам понять, как решить данную задачу. Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.


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