Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  6
Language: PASCAL
Code:
var i,n:integer;max,a:real;
begin
 read(n); 
read(max);
 for i:=2 to n do
 begin
   read(a);
   if a > max then max:=a;
 end;
 writeln(max:1:2,' ');
end.     
Comments: