Задание

Установите соответствие между условием задачи и текстом программы.

Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить минимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была больше 30 км/ч, выведите «YES», иначе выведите «NO».

  • 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, 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, 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.