Question

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

Answer 1

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<mn then mn:=m;
    if m>mx then mx:=m;
    k:=k+1;
  end;
  write(mn);
  if mx>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