Помогите пожалуйста решить с while!

Помогите пожалуйста решить с while!

Задать свой вопрос
1 ответ
Var sp: real;
    n,k,m,mn,mx: integer;
begin
  mx:=0; mn:=300;
  readln(n);
  k:=0;
  while klt;n do
  begin
    read(sp);
    m:=round(sp);
    if mlt;mn then mn:=m;
    if mgt;mx then mx:=m;
    k:=k+1;
  end;
  write(mn);
  if mxgt;80 then writeln('  YES')
  else writeln('   NO');
end.

10
56.2 73.4 80.6 92.4 45.8 65.7 97.2 105.6 73.0 89.2
46  YES

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт