1)       Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 ­– рост учащихся выпускного класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на русском языке или на...

1)       Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 ­– рост учащихся выпускного класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается. Паскаль const N = 30; var A: array[1..N] of integer;     i, x, y: integer;     s: real; begin   for i:=1 to N do readln(A[i]);   ... end. Объявляется массив A из 30 элементов. Объявляются целочисленные переменные i, x и y, а также вещественная переменная s. В цикле от 1 до 30 заполняются все элементы массива A с 1-ого по 30-ый. ...   2)      Дан целочисленный массив из 31 элемента, в котором записаны значения температуры воздуха в марте. Элементы массива могут принимать значения от (–20)  до 20. Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит среднюю температуру по всем дням, когда была оттепель (температура поднималась выше нуля). Гарантируется, что хотя бы один день в марте была оттепель. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается. Паскаль Естественный язык const N = 31; var A: array[1..N] of integer;     i, x, y: integer;     s: real; begin   for i:=1 to N do readln(A[i]);   ... end. Объявляется массив A из 31 элемента. Объявляются целочисленные переменные i, x и y, а также вещественная переменная s. В цикле от 1 до 31 заполняются все элементы массива A с 1-ого по 31-ый. ...  Срочно помогите плиз)  Решение в виде языка Паскаль(желательно под ABC)