Помогите пожалуйста с задачами:
1)Есть целочисленный массив из 30 элементов, которые могут принимать значения от 0 до 100 - это баллы учеников за тест по математике. Для получения положительной оценки нужно не менее 20 баллов. Нужно сделать программу, которая нахадит и выводит минимальный балл среди учеников, получивших за тест положительную оценку( в классе хотя бы один ученик получил положительную оценку).
2)Есть целочисленный массив из 30 элементов, которые могут принимать значения от -20 до +20 - это температуры за каждый день марта. Нужно сделать программу, которая нахадит и выводит максимальную температуру среди дней, когда были заморозки(ниже нуля). Хотя бы в один день марта была отрицательная температура.
3)Есть целочисленный массив из 30 элементов, которые могут принимать значения от 150 до 200 - это рост кандидатов на участие в соревнованиях. В команду набираются желающие, чей рост не более 175 см. Такие кандидаты имеются. Нужно сделать программу, которая нахадит и выводит рост самого высокого участника команды.
Исходные данные: N=30, Var a: array[1..N] of integer, i, j, min:integer; Begin for i:=1 to N do readln(a); end.