Question

СРОЧНО , 40 БАЛЛОВ , ПАСКАЛЬ
Напишите программу, которая заполняет массив из N = 10 элементов случайными числами в диапазоне [0,20], выводит его на экран, а затем находит индекс первого элемента, равного введённому числу X. Программа должна вывести ответ «не найден», если в массиве таких элементов нет.
Пример:
Массив: 5 16 2 13 3 14 18 13 16 9
Что ищем: 13
A[4] = 13
Напишите программу, которая заполняет массив из N =10 элементов случайными числами в диапазоне [-10,10], выводит его на экран, а затем находит индекс последнего элемента, равного введённому числу X. Программа должна вывести ответ «не найден», если в массиве таких элементов нет.
Пример:
Массив: -5 -6 2 3 -3 0 8 -3 0 9
Что ищем: 0
A[9] = 0
Напишите программу, которая заполняет массив из N = 10 элементов случайными числами в диапазоне [10,50], выводит его на экран, а затем находит индексы всех элементов, равных введённому числу X. Программа должна вывести ответ «не найден», если в массиве таких элементов нет.
Пример:
Массив: 12 45 30 18 30 15 30 44 32 17
Что ищем: 30
A[3] = 30
A[5] = 30
A[7] = 30

Answer 1

program SearchArray;

const

 N = 10; // Размер массива

var

 A: array[1..N] of integer; // Массив

 X: integer; // Число, которое ищем

 i: integer; // Итератор для циклов

 found: boolean; // Флаг для проверки нахождения элемента

begin

 // Заполняем массив случайными числами (допустим в диапазоне [0, 20])

 randomize;

 for i := 1 to N do

   A[i] := random(21);

 

 // Выводим массив на экран

 writeln('Массив:');

 for i := 1 to N do

   write(A[i], ' ');

 writeln;

 

 // Вводим число, которое ищем

 write('Что ищем: ');

 readln(X);

 

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

 found := false;

 for i := 1 to N do

 begin

   if A[i] = X then

   begin

     writeln('A[', i, '] = ', X);

     found := true;

     break;

   end;

 end;

 

 // Выводим сообщение, если элемент не найден

 if not found then

   writeln('Не найден');

end.