Question

Напишите программу в Паскале, которая заполняет массив из N = 10 элементов случайными числами в диапазоне[0,20], выводит его на экран, а затем находит индекспервого элемента, равного введённому числу X.Программа должна вывести ответ «не найден», еслив массиве таких элементов нет.Пример:Массив: 5 16 2 13 3 14 18 13 16 9Что ищем: 13A[4] = 13

Answer 1

Ответ:

var a: array [1..10] of integer;

x,i: integer;

k: boolean;

begin

 k:=False;

 randomize;

 for i:=1 to 10 do

   a[i]:=random(21);

 readln(x);

 for i:=1 to 10 do

   if a[i]=x then

   begin

     x:=i;

     k:=True;

     break;

   end;

 if k then

   writeln('a[',x,']=',a[x])

 else

   writeln('не найдено')

end.

Объяснение:

Answer 2

Вот пример программы на языке Паскаль, которая выполняет указанные действия:

program SearchElement;
const
  N = 10; // количество элементов в массиве
  X = 13; // число, которое ищем
var
  A: array[1..N] of Integer; // объявление массива
  i: Integer; // переменная для цикла
  index: Integer; // переменная для хранения индекса искомого элемента
begin
  // заполнение массива случайными числами
  Randomize; // инициализация генератора случайных чисел
  for i := 1 to N do
    A[i] := Random(21); // случайное число от 0 до 20
    
  // вывод массива на экран
  for i := 1 to N do
    Write(A[i], ' ');
  Writeln;
  
  // поиск индекса первого элемента, равного X
  index := -1; // инициализируем индекс значением -1 (не найдено)
  for i := 1 to N do
  begin
    if A[i] = X then
    begin
      index := i; // сохраняем индекс найденного элемента
      Break; // выходим из цикла
    end;
  end;
  
  // вывод результата поиска
  if index <> -1 then
    Writeln('Индекс первого элемента, равного ', X, ': ', index)
  else
    Writeln('Не найдено');
end.

Программа создает массив `A` из 10 элементов и заполняет его случайными числами от 0 до 20. Затем она выводит массив на экран. Далее происходит поиск индекса первого элемента, равного числу `X` (в данном случае 13). Если такой элемент найден, программа выводит его индекс, а если нет - выводит сообщение "Не найдено".