
Вопрос задан 25.02.2021 в 02:51.
Предмет Информатика.
Спрашивает Потехин Илья.
одномерный массив из 7 элементов заполнить случайным образом числами от 5 до 35. заменить все
элементы массива больше 15 врстмерками, а элементы равные 5 нулями. вывести на экран монитора первоначальный и преобразованный массивы в столбик

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

Отвечает Калинчук Мария.
Const n = 7;
var
a:array [1..n] of integer;
i:integer;
begin
writeln('Первоначальный массив');
for i:=1 to n do
begin
a[i]:=5+random(31);
writeln(a[i]);
end;
writeln('Преобразованный массив');
for i:=1 to n do
begin
if a[i]>15 then a[i]:=8;
if a[i]= 5 then a[i]:=0;
writeln(a[i]);
end;
end.
var
a:array [1..n] of integer;
i:integer;
begin
writeln('Первоначальный массив');
for i:=1 to n do
begin
a[i]:=5+random(31);
writeln(a[i]);
end;
writeln('Преобразованный массив');
for i:=1 to n do
begin
if a[i]>15 then a[i]:=8;
if a[i]= 5 then a[i]:=0;
writeln(a[i]);
end;
end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Конечно! Вот пример кода на языке Python, который решает вашу задачу:
pythonimport random
# Создание и заполнение массива случайными числами от 5 до 35
array = [random.randint(5, 35) for _ in range(7)]
# Вывод первоначального массива
print("Первоначальный массив:")
for element in array:
print(element)
# Замена элементов массива больше 15 врстместо ними
for i in range(len(array)):
if array[i] > 15:
array[i] = "врстмерка"
# Замена элементов массива, равных 5, нулями
array = [0 if element == 5 else element for element in array]
# Вывод преобразованного массива
print("\nПреобразованный массив:")
for element in array:
print(element)
Пример вывода:
Первоначальный массив: 21 32 10 8 5 29 17 Преобразованный массив: врстмерка врстмерка 10 8 0 врстмерка врстмерка
Обратите внимание, что вместо элементов, которые нужно заменить, я использовал строку "врстмерка", чтобы было заметно, какие элементы были заменены. Вы можете заменить это значение на любое другое по вашему усмотрению.


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