Вопрос задан 18.06.2023 в 00:14. Предмет Информатика. Спрашивает Чайковский Роман.

Дан массив из 20 элементов, состоящий из целых случайных чисел. Числа находятся в интервале (-15,

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

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Деева Лера.

Ответ:

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.

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

Для решения данной задачи, нам необходимо сгенерировать массив из 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()` для подсчета количества элементов массива, равных нулю, и вывели результат на экран.

Надеюсь, данное объяснение помогло вам понять, как решить данную задачу. Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.

0 0

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

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

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

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