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

Лебедь

29

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

program SearchElement;

const

  N = 10;

  x = 13;

var

  a: array[1..N] of integer;

  i, index: integer;

begin

  // Заполняем массив случайными числами от 0 до 20

  randomize;

  for i := 1 to N do

    a[i] := random(21);



  // Выводим содержимое массива

  writeln("Массив a:");

  for i := 1 to N do

    write(a[i], " ");



  // Ищем индекс первого элемента, равного x

  index := -1; // Предполагаем, что элемент не найден

  for i := 1 to N do

  begin

    if a[i] = x then

    begin

      index := i;

      break;

    end;

  end;



  // Выводим результат

  writeln;

  if index <> -1 then

    writeln("a[", index, "] = ", x)

  else

    writeln("Элемент не найден");

    

  readln;

end.

В этой программе мы сначала создаем массив `a` из 10 элементов. Затем мы заполняем его случайными числами от 0 до 20 с помощью генератора случайных чисел. Далее мы выводим содержимое массива на экран.

Затем мы ищем первый элемент в массиве, равный указанному числу `x`. Если такой элемент найден, мы сохраняем его индекс в переменной `index`. Если элемент не найден, переменная `index` остается равной -1.

Наконец, мы выводим результат на экран. Если элемент найден, мы выводим его индекс и значение. Если элемент не найден, выводим сообщение "Элемент не найден".

Надеюсь, это решение понятно школьникам. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать.