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

КэтЗед КэтЗед    2   17.06.2019 20:10    13

Ответы
arseniy0114 arseniy0114  14.07.2020 17:52
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика