Question

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

Answer 1

Ответ:

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. // Конец программы

Answer 2

Конечно, я могу помочь вам с этим! Вот пример кода на языке Pascal, который позволит вам ввести длину бороды для 10 актеров, определить, кто подходит под параметры, и найти элемент последовательности:

pascalCopy code
program Casting;

var
  BeardLength: array[1..10] of Integer;
  i: Integer;

begin
  writeln('Введите длину бороды для 10 актеров:');
  
  for i := 1 to 10 do
  begin
    write('Актер ', i, ': ');
    readln(BeardLength[i]);
  end;

  writeln('Актеры, подходящие по параметрам:');
  for i := 1 to 10 do
  begin
    if (BeardLength[i] >= 9) and (BeardLength[i] <= 11) then
      writeln('Актер ', i);
  end;

  writeln('Введите искомую длину бороды:');
  var targetLength: Integer;
  readln(targetLength);

  var found: Boolean := False;
  for i := 1 to 10 do
  begin
    if BeardLength[i] = targetLength then
    begin
      writeln('Актер с искомой длиной бороды найден на позиции ', i);
      found := True;
      break;
    end;
  end;

  if not found then
    writeln('Актер с искомой длиной бороды не найден');
end.

Скопируйте этот код в среду программирования на Pascal и выполните его. Программа предложит вам ввести длину бороды для каждого из 10 актеров, затем определит, кто из них подходит под параметры (9-11 см) и найдет указанный вами элемент последовательности (искомую длину бороды).