Поиск элементов массива с заданными свойствами

РЕШЕНИЕ ЗАДАЧ
Задача. Вам необходимо отобрать атлетов на соревнования. Атлет подходит на соревнование, если его вес от 62 до 69 кг. Выведите порядковый номер и вес атлетов, подходящих на соревнования. Количество атлетов выберите сами.

Обратить внимание учащихся, что в играх есть помощь, подсказки.
Ребята, внимательно читайте указанию, которые даны после выполнения упражнения.
Задание 2. Перейти к игре.
Задание 3. Составь программу для решения следующей задачи.

Суммарные баллы абитуриентов записаны в массиве b. Выведи порядковые номера и баллы тех абитуриентов, суммарный балл которых от 340 до 380. C количеством абитуриентов определитесь сами.
var b:array[1..20] of integer;
n:integer;
begin
for n:=1 to 20 do read(...);
for n:=1 to 20 do
              if (...>=...) and (...<=...) then writeln(...,' --',...);

end.
Протестируй свою программу. Если результат правильный, то покажи результат работы  учителю.

Переходите к заданию 4 на блоге.

Задание 4. 
а) Перейти к игре
б)  Составь программу для решения следующей задачи.
Суммарные баллы абитуриентов записаны в массиве b. Выведи порядковый номер и балл абитуриента с наименьшим количеством баллов. Абитуриенты с одинаковым количеством баллов не встречаются. C количеством абитуриентов определитесь сами.


Протестируй свою программу. Если результат правильный, то покажи результат работы  учителю.


Переходите к заданию 5 на блоге.


Задание 5. Оценки в соревнованиях по фигурному катанию выставляются 9 судьями. потом одна самая низкая и одна самая высокая оценки отбрасываются и в зачет идет среднее арифметическое оставшихся оценок. Составьте программу, которая определяет зачетную оценку спортсмена. Оценки судей ввести с клавиатуры (целые числа от 1 до 6).
Фрагмент вычисления суммы элементов:
s:=0;
for n:=1 to 10 do s:=s+a[n];
Протестируй свою программу. Если результат правильный, то покажи результат работы  учителю.