Question

Найти максимальный элемент и его номер в последовательности в паскале

Answer 1

Var
k,i:integer;
x,max:real;
   begin 
     for k:=1 to 10 do
         begin
            if k mod 2 <>0 then 
               x:=k/(1+k)
             else
                x:=sqr(k)/(1+sqr(k));
             if x>max then
                begin
                   max:=x;  
                   i:=k;
                end;
          end;
writeln(max,'  N:  ',i);
end.