Задание

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

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

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