Напишите программу для решение задачи . камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо нее автомобилей , округля я з

1 Январь 0001



напишите программу для решение задачи . камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо нее автомобилей , округля я значение скорости до целых чисел . необходимо определить минимальную зарегистрированную скорость автомобиля . если скорость хотя бы одного автомобиля была больше 80 км/ч , ВЫВЕДИТЕ YES  ИНАЧЕ NO .  программа получает на вход число проехавших автомобилей n(1<=n<=30), затем указываются их скорости . значение скорости не может быть меньше 1 и больше 300 . программа должна сначала вывести минимальную скорость , затем yes или no . 

  • uses crt;
    var a:array[1..50] of real;
    i,n,k:integer;
    begin
      clrscr;
      write(‘chislo avto=’); read(n);
      if (n>=1) and (n< =30) then

      begin
        writeln(‘skorosti:’);
        for i:=1 to n do
        begin
          readln(a[i]);
          if a[i]>300 then write(‘error’);
          if (a[i]>80) and (a[i]< =300) then k:=k+1;
        end;
        if k>0 then write(‘YES’)
        else write(‘NO’);
      end
      else write(‘error’);
    end.









Информатика

Комментарии закрыты.