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. // Конец программы
Задание 1: 4132
4 Экзамен | ЕГЭ | Информатика | Литература
1 Экзамен | ЕГЭ | Информатика
3 Экзамен | ЕГЭ
2 Экзамен & ЕГЭ & Информатика
Задание 2: 3124
3 рыбки
1 рыбки & аквариум
2 рыбки & аквариум & гуппи
4 рыбки & аквариум & гуппи & купить
Задание 3: 3421
3 Сок | Нектар
4 Сок
2 Сок & Апельсин
1 Сок & Апельсин & Яблоко
Задание 4: 2134
2 волейбол | баскетбол | подача | блок
1 волейбол | баскетбол | подача
3 волейбол | баскетбол
4 волейбол & баскетбол & подача
Задание 5: 2341
2 алгоритм & сжатие & графика & архиватор
3 алгоритм & сжатие
4 алгоритм | (сжатие & графика)
1 сжатие | графика | алгоритм
Задание 6: 1423
1 (Автомобили – Ford) & новые
4 Автомобили – Ford
2 Автомобили
3 Автомобили | Ford
Задание 7: 3124
3 отдых & Сочи & Адлер
1 отдых & (Сочи | Адлер)
2 отдых & (море | Сочи | Адлер)
4 отдых | Сочи | Адлер
Задание 8: 4123
4 строительный & стоимость & купить & купить
1 строительный & стоимость & купить
2 строительный | материал | купить
3 строительный | материал | стоимость | купить
Задание 9: 5000
Новосибирск 3300
Красноярск 2200
Новосибирск & Красноярск 500
Новосибирск | Красноярск 5000
Задание 10:
Атос & Портос 335
Атос & Арамис 225
Атос & Портос & Арамис 120
Атос & (Портос | Арамис) 440
Графические подтверждения: