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

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)

  • uses crt;
    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]);
    writeln;
    x:=201;
    for i:=1 to N do
    if (a[i]<x) and (a[i]>179) then begin x:=a[i]; y:=i; end;
    writeln(a[y]);
    end.