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

Автор: rueiriere7e8o100

Предмет: Информатика

Уровень: 5 - 9 класс

помогите срочно пж!

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

Ответов к вопросу: 1

vasilisapopova02

Ответить

24.07.2024 | 12:22

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