Уровень a. Напишите код, который генерирует массив из 10 элементов со случайными числами в диапазоне от 0 до 20. Затем выведите этот массив на экран и найдите индекс первого элемента, равного введённому числу x. Если такого элемента в массиве нет, то выведите сообщение «не найден». Например, для массива: 5 16 2 13 3 14 18 13 16 9 и числа x равного 13, программа должна вывести a[4] = 13. Реализация должна быть на языке Pascal (старая версия).
Сэр
Конечно! Вот такой код на языке Pascal можно использовать для решения данной задачи:
Этот код создаст массив из 10 элементов со случайными числами в диапазоне от 0 до 20. Затем он выведет этот массив на экран и найдет индекс первого элемента, равного введенному числу `x`. Если такого элемента в массиве нет, то будет выведено сообщение "Не найден".
Надеюсь, это поможет разобраться школьнику в решении данной задачи!
pascal
program ArraySearch;
const
N = 10; // количество элементов в массиве
MIN_VALUE = 0; // минимальное значение элемента
MAX_VALUE = 20; // максимальное значение элемента
var
arr: array[1..N] of integer;
i, x: integer;
found: boolean;
begin
randomize; // инициализация генератора случайных чисел
// заполняем массив случайными числами
for i := 1 to N do
arr[i] := random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;
// выводим массив на экран
write("Массив: ");
for i := 1 to N do
write(arr[i], " ");
writeln;
// вводим число x
write("Введите число x: ");
readln(x);
// поиск индекса первого элемента, равного x
found := false;
for i := 1 to N do
begin
if arr[i] = x then
begin
writeln("a[", i, "] = ", x);
found := true;
break; // прерываем цикл после нахождения первого элемента, равного x
end;
end;
if not found then
writeln("Не найден");
end.
Этот код создаст массив из 10 элементов со случайными числами в диапазоне от 0 до 20. Затем он выведет этот массив на экран и найдет индекс первого элемента, равного введенному числу `x`. Если такого элемента в массиве нет, то будет выведено сообщение "Не найден".
Надеюсь, это поможет разобраться школьнику в решении данной задачи!
Знаешь ответ?