
Дан массив, размером 11. Элементы массива случайные числа из диапазона [1, 15]. Все элементы
массива уменьшить на 2. Вывести исходный и измененный массив (в 2 строки). А затем в измененном массиве найти и вывести (в третьей строке) количество элементов, меньших 9.

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

Ответ:
program LessThanNine;
Var
A, B : Array of Integer;
I, Kolvo : Integer;
begin
randomize;
SetLength(A,11);
SetLength(B,11);
Kolvo := 0;
For I:=0 to 10 do
begin
A[I]:=random(16);
Write(A[I], ' ');
end;
Writeln;
For I:=0 to 10 do
begin
B[I]:=A[I] * 2;
Write(B[I], ' ');
end;
Writeln;
For I:=0 to 10 do
if B[I]<9 then
Kolvo := Kolvo + 1;
Write('Количество элементов меньше 9-ти: ', Kolvo);
end.
Объяснение:
Ну надеюсь не докопаются до того, что тут вывод на экран происходит в том же цикле, что и присваивание значений всем элементам



Вы можете выполнить данную задачу, используя язык программирования, такой как Python. Вот пример кода, который выполняет описанные вами шаги:
pythonimport random
# Создаем массив из 11 случайных чисел в диапазоне [1, 15]
original_array = [random.randint(1, 15) for _ in range(11)]
# Выводим исходный массив
print("Исходный массив:")
print(original_array)
# Уменьшаем каждый элемент на 2
modified_array = [x - 2 for x in original_array]
# Выводим измененный массив
print("\nИзмененный массив:")
print(modified_array)
# Находим количество элементов в измененном массиве, которые меньше 9
count_less_than_9 = len([x for x in modified_array if x < 9])
# Выводим количество элементов меньше 9
print("\nКоличество элементов меньше 9:", count_less_than_9)
Этот код создает исходный массив из 11 случайных чисел в заданном диапазоне, уменьшает каждый элемент на 2, выводит исходный и измененный массивы, а затем находит и выводит количество элементов, меньших 9, в измененном массиве.


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


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