1)       Дан целочисленный массив из 30 частей.Элементы могут принимать значения от

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)