Уровень a. Напишите код, который генерирует массив из 10 элементов со случайными числами в диапазоне от 0 до 20. Затем

Уровень a. Напишите код, который генерирует массив из 10 элементов со случайными числами в диапазоне от 0 до 20. Затем выведите этот массив на экран и найдите индекс первого элемента, равного введённому числу x. Если такого элемента в массиве нет, то выведите сообщение «не найден». Например, для массива: 5 16 2 13 3 14 18 13 16 9 и числа x равного 13, программа должна вывести a[4] = 13. Реализация должна быть на языке Pascal (старая версия).
Сэр

Сэр

Конечно! Вот такой код на языке Pascal можно использовать для решения данной задачи:

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`. Если такого элемента в массиве нет, то будет выведено сообщение "Не найден".

Надеюсь, это поможет разобраться школьнику в решении данной задачи!
Знаешь ответ?
Задать вопрос
Привет!
hello