Дан целочисленный массив из 30 элементов. элементы могут принимать значения от 160 до 200 ¬– рост учащихся выпускного класса. в баскетбольную команду берут тех, чей рост не менее 180 см.опишите на языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. гарантируется, что хотя бы один ученик играет в баскетбольной команде. исходные данные объявлены так, как показано ниже. использовать другие переменные запрещается. код pascal cоnst n = 30; var a: array[1..n] of integer; i, x, y: integer; s: real; begin for i: =1 to n do readln(a); end.
var A: array[1..N] of integer;
i, x, y: integer;
s: real;
begin
s:=201;
for i:=1 to N do
begin
readln(A[i]);
if(a[i]<s)and(a[i]>179)then s:=a[i];
end;
writeln(s);
end.