Question

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

Answer 1

const

N = 10;

var

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

x, i, idx : integer;

begin

idx := -1;

randomize;

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

for i := 1 to N do

   begin

   arr[i] := random(21);

   write(arr[i],' ');

   end;

writeln;

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

readln(x);

for i := 1 to N do

   if (arr[i] = x) then

       begin

       idx := i;

       break;

       end;

if idx = -1 then

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

else

   writeln('A[',idx,']',' = ',x);

end.