Помогите пожалуйста,напишите программу c while.
Напишите программу для решения следующей задачи . Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо нее автомобилей, округляя значения скорости до целых чисел. Необходимо определить максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 30 км/ч, выведи YES, иначе выведите NO. Программа получает на вход число проехавших автомобилей N ( 1 ≤ N ≤ 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести максимальную скорость, затем YES или NO.
Ответы
Ответ дал:
0
var sp: real;
n,k,m,mn,mx: integer;
begin
mx:=0; mn:=300;
readln(n);
k:=0;
while k<n do
begin
read(sp);
m:=round(sp);
if m<30 then mn:=30;
if m>mx then mx:=m;
k:=k+1;
end;
write(mx);
if mn=30 then writeln(' YES')
else writeln(' NO');
end.
8
43.2 29.3 48.6 78.54 62 71 93.15 110
110 YES
5
45 55.6 78.9 30 87.6
88 NO
n,k,m,mn,mx: integer;
begin
mx:=0; mn:=300;
readln(n);
k:=0;
while k<n do
begin
read(sp);
m:=round(sp);
if m<30 then mn:=30;
if m>mx then mx:=m;
k:=k+1;
end;
write(mx);
if mn=30 then writeln(' YES')
else writeln(' NO');
end.
8
43.2 29.3 48.6 78.54 62 71 93.15 110
110 YES
5
45 55.6 78.9 30 87.6
88 NO
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад