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 актеров, а затем определить, кто из них подходит по заданным параметрам (борода от 9 до 11 см).

pascalCopy code
program Casting;
var
  BeardLength: array[1..10] of Integer;
  i: Integer;
  suitableActors: Integer;

begin
  suitableActors := 0;

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

    // Проверка на соответствие параметрам
    if (BeardLength[i] >= 9) and (BeardLength[i] <= 11) then
      suitableActors := suitableActors + 1;
  end;

  // Вывод актеров, подходящих по параметрам
  if suitableActors > 0 then
  begin
    Writeln('Актеры с подходящей длиной бороды:');
    for i := 1 to 10 do
    begin
      if (BeardLength[i] >= 9) and (BeardLength[i] <= 11) then
        Writeln('Актер ', i, ': длина бороды = ', BeardLength[i], ' см');
    end;
  end
  else
    Writeln('Нет актеров с подходящей длиной бороды.');

end.

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