Question

Дан целочисленный массив из 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.

Answer 1

Cоnst N = 30; 
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.