Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  10 6
Language: PASCAL
Code:
program HelloWorld;
var n: Integer; x: Real;
begin
Read (n);
Read(x);
If x mod 2 <>0 then
min:=x;
For i=1 to n-1 do
Begin
Read (x);
If x<min then
min:=x;
end;
Writeln ('min=',min);
End.          
          
Comments: