Вопрос задан 04.10.2018 в 10:39. Предмет Информатика. Спрашивает Свищёва Настя.

Дан целочисленный массив из 70 элементов.Элементы массива могут принимать целые значения от 0 до

100.Составить программу ,позволяющую найти и вывести элементы массива, которые не кратны 9 и находятся в диапазоне[30,70].Гарантируется,что в исходном массиве есть хотя бы один такой элемент.
0 0
Перейти к ответам

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

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Иванов Влад.
Const
    auto = true;
    n = 70;

var
    a: array[1..n] of integer;
    i: integer;

begin
    for i := 1 to n do
    begin
        if auto then
            a[i] := random(100)
        else readln(a[i]);
       
        if (a[i] <= 70) and (a[i] >= 30) and (a[i] mod 9 > 0) then
            writeln(a[i]);
    end;
end.

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

Для решения данной задачи можно использовать следующий алгоритм:

1. Создать целочисленный массив из 70 элементов и заполнить его случайными целыми значениями от 0 до 100.

2. Создать цикл, который будет проходить по всем элементам массива.

3. Внутри цикла проверить условия: элемент не кратен 9 и находится в диапазоне от 30 до 70.

4. Если условия выполняются, вывести значение элемента массива на экран.

Пример реализации данного алгоритма на языке Python:

```python import random

# Создание массива и заполнение случайными значениями arr = [random.randint(0, 100) for _ in range(70)]

# Поиск и вывод элементов, не кратных 9 и находящихся в диапазоне от 30 до 70 for num in arr: if num % 9 != 0 and 30 <= num <= 70: print(num) ```

Таким образом, данная программа позволяет найти и вывести все элементы массива, которые не кратны 9 и находятся в диапазоне от 30 до 70.

0 0

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

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

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