Advertisement
Guest User

SecondBiggestNumber

a guest
Dec 22nd, 2014
162
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.93 KB | None | 0 0
  1. program SecondBiggestNumber;
  2. uses crt;
  3. var N : longint;
  4. i, number, max, max1, quantity : integer;
  5.  
  6. begin
  7.  
  8. writeln('Input how many numbers you want in order: ');
  9. readln(N);
  10.  
  11. begin
  12. max := -MaxInt;
  13. max1 := -MaxInt;
  14. quantity := 0;
  15.  
  16. for i:= 1 to N do
  17. begin
  18. write('Input ',i,'. number in order: ');
  19. readln(number);
  20.  
  21. if number > max then
  22. begin
  23. max1 := max;
  24. max := number;
  25. quantity := 0;
  26. end;
  27.  
  28. if ((number<max)) AND ((number>max1)) then
  29. begin
  30. max1 := number;
  31. quantity := 0;
  32. end;
  33.  
  34. if number = max1 then
  35. quantity := quantity + 1;
  36. end;
  37.  
  38. writeln('Second biggest number in order is: ',max1);
  39. writeln('We can found it there: ',quantity,'x');
  40. repeat until keypressed;
  41. end;
  42. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement