10 актеров пришли на кастинг фильма.На роль главного героя нужен был актер с бородой не менее 9 и не более 11 см.Ввести длину бороды 10 актеров с клавиатуры и узнать кто подходит по параметрам.Найти заданный элемент последовательности.Сделать в паскале

program actors;

var

 i: integer;

 mas: array [1..10] of integer;

begin

 for i := 1 to 10 do  

 begin

   read(mas[i]);  

 end;

 for i := 1 to 10 do  

 begin

   if (mas[i] >= 9) and (mas[i] <= 11) then

     writeln('Элемент: ', i, ' Значение: ', mas[i]);

 end;

end.

Объяснение:

program actors;  // Название программы

var

 i: integer;  // Целочисленная переменная счетчик для массива

 mas: array [1..10] of integer;  // Целочисленный массив с 10-ю элементами

begin  // Начало программы

 for i := 1 to 10 do   // Идем с первого по десятый индексы

 begin  // Начало цикла

   read(mas[i]);  // Считываем значение с клавиатуры

 end;  // Конец цикла

 for i := 1 to 10 do  // Идем с первого по десятый индексы

 begin  // Начало цикла

   if (mas[i] >= 9) and (mas[i] <= 11) then  // Если значение элемента массива mas с индексом i ≤ 11 И ≥ 9, тогда

     writeln('Элемент: ', i, ' Значение: ', mas[i]);  // Выводим индекс и значение элемента

 end;  // Конец цикла

end. // Конец программы