Задание
Установите соответствие между условием задачи и текстом программы.
Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 30 км/ч, выведите «YES», иначе выведите «N0».
- var c, a, i, u, b: integer;
begin
max := 0;
b := 0;
readln\(c\);
for i := 1 to c do
begin
readln\(a\);
if a > u then u := a;
if a < 30 then b := 1;
end;
writeln\(u\);
if b=1 then
writeln \('YES'\)
else writeln\('NO'\)
end. - var c, a, i, u, b: integer;
begin
u := 301;
b := 0;
readln\(c\);
for i := 1 to c do
begin
readln\(a\);
if a < u then u := a;
if a > 30 then b := 1;
end;
writeln\(u\);
if b = 1 then
writeln\('YES'\)
else writeln\('NO'\)
end. - var c, a, i, b: integer;
u, ave: real;
begin
s := 0;
b := 0;
readln\(c\);
for i := 1 to c do
begin
readln\(a\);
u := u + a;
if a >= 30 then b := 1;
end;
ave := u/N;
writeln\(ave:6:1\);
if b=1 then
writeln\('YES'\) else
writeln\('NO'\)
end.