Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ыыы
Language: PASCAL
Code:
uses crt;
var a,b:real;
     n:integer;
begin
 writeln('n');
 readln(n);
 for i:=1 to n do
  begin
   writeln('Введите ',i,' -е число ');
   readln(a);
   if i<>1 then
    begin
       if abs(trunc(b)-b)>abs(trunc(a)-a) then b:=a;
    end
   else b:=a;
  end;
 
writeln(b);
readln;
 
 
end.
          
Comments: