Уровень b. Напишите код, который генерирует и заполняет массив из 10 элементов случайными числами в промежутке от -10 до 10. Затем выведите содержимое массива на экран и найдите индекс последнего элемента, который равен заданному числу x. Если такой элемент не найден, выведите сообщение "не найден". Пример: массив: -5 -6 2 3 -3 0 8 -3 0 9 что ищем: 0 a[9] = 0 на Паскале (старая версия).
Тимур_5451
Конечно, вот решение данной задачи на языке Pascal:
Надеюсь, это решение объясняет шаги, предпринятые для генерации и заполнения массива случайными числами, вывода содержимого массива и поиска заданного числа. Если возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать!
pascal
program GenerateAndFind;
var
arr: array [1..10] of integer;
x, i, index: integer;
begin
Randomize;
for i := 1 to 10 do
arr[i] := Random(21) - 10; // Генерация и заполнение массива случайными числами от -10 до 10
writeln("Массив:");
for i := 1 to 10 do
write(arr[i], " "); // Вывод содержимого массива на экран
writeln;
writeln("Что ищем: ");
readln(x);
index := -1; // Индекс искомого элемента, -1 означает, что элемент не найден
for i := 10 downto 1 do
begin
if arr[i] = x then
begin
index := i;
break;
end;
end;
if index <> -1 then
writeln("a[", index, "] = ", x)
else
writeln("Не найден"); // Вывод результата поиска
end.
Надеюсь, это решение объясняет шаги, предпринятые для генерации и заполнения массива случайными числами, вывода содержимого массива и поиска заданного числа. Если возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать!
Знаешь ответ?