
Вопрос задан 08.04.2021 в 00:42.
Предмет Информатика.
Спрашивает Шапули Наталья.
Обработка одномерного массива : Количество элементов: 20 вещественный чисел ; Способ ввода:
датчик случайных чисел ; Способ вывода: В строку, через один пробел ; Обработка массива: Найти количество элементов равных 10 ; Поиск: Элементов равных 0 ; Перестановка в массиве : Поменять местами 3 и 6 элемент в массиве. Надеюсь, есть смышлённые люди, которые смогут помочь Мне с данной задачей. Благодарю Вас заранее, надеюсь, Вы дадите верный ответ в виде программы.

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

Отвечает Onyshchuk Angelina.
// PascalABC.Net 3.2, сборка 1319 от 08.10.2016
begin
var n:=20;
var a:=ArrRandom(n,-12,12);
Writeln('Массив случайных чисел'); a.Println;
Println('Количество элементов, равных 10:',a.Where(x->x=10).Count);
Write('Нулевые элементы ');
var k:=0;
for var i:=0 to n-1 do
if a[i]=0 then begin Inc(k); Print(i+1) end;
if k=0 then Writeln('отсутствуют') else Writeln;
Writeln('Меняем местами элементы 3 и 6');
Swap(a[2],a[5]); a.Println
end.
Результат работы программы
Массив случайных чисел
-12 -4 5 10 5 4 -5 11 0 -8 -5 -7 1 2 -1 9 0 -5 10 -2
Количество элементов, равных 10: 2
Нулевые элементы 9 17
Меняем местами элементы 3 и 6
-12 -4 4 10 5 5 -5 11 0 -8 -5 -7 1 2 -1 9 0 -5 10 -2
begin
var n:=20;
var a:=ArrRandom(n,-12,12);
Writeln('Массив случайных чисел'); a.Println;
Println('Количество элементов, равных 10:',a.Where(x->x=10).Count);
Write('Нулевые элементы ');
var k:=0;
for var i:=0 to n-1 do
if a[i]=0 then begin Inc(k); Print(i+1) end;
if k=0 then Writeln('отсутствуют') else Writeln;
Writeln('Меняем местами элементы 3 и 6');
Swap(a[2],a[5]); a.Println
end.
Результат работы программы
Массив случайных чисел
-12 -4 5 10 5 4 -5 11 0 -8 -5 -7 1 2 -1 9 0 -5 10 -2
Количество элементов, равных 10: 2
Нулевые элементы 9 17
Меняем местами элементы 3 и 6
-12 -4 4 10 5 5 -5 11 0 -8 -5 -7 1 2 -1 9 0 -5 10 -2



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно, я могу помочь вам с решением задачи. Вот код на языке Python, который решает данную задачу:
pythonimport random
# Создаем массив из 20 случайных вещественных чисел
arr = [random.uniform(-10, 10) for _ in range(20)]
# Выводим массив в строку через один пробел
print("Массив:", end=" ")
for elem in arr:
print(elem, end=" ")
# Находим количество элементов, равных 10
count_10 = arr.count(10)
print("\nКоличество элементов, равных 10:", count_10)
# Находим элементы, равные 0
zero_indexes = [i for i, elem in enumerate(arr) if elem == 0]
print("Индексы элементов, равных 0:", zero_indexes)
# Переставляем 3 и 6 элементы в массиве
arr[3], arr[6] = arr[6], arr[3]
print("Массив после перестановки:", end=" ")
for elem in arr:
print(elem, end=" ")
Первым шагом мы создаем массив arr
из 20 случайных вещественных чисел с помощью датчика случайных чисел. Затем мы выводим этот массив в строку, используя цикл for
. Далее мы находим количество элементов, равных 10, с помощью метода count()
для списка. Затем мы находим индексы элементов, равных 0, используя генератор списка и метод enumerate()
. Наконец, мы переставляем 3 и 6 элементы в массиве, используя множественное присваивание. В конце мы снова выводим массив в строку для проверки перестановки.


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

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

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

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

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

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

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

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