Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program SecondBiggestNumber;
- uses crt;
- var N : longint;
- i, number, max, max1, quantity : integer;
- begin
- writeln('Input how many numbers you want in order: ');
- readln(N);
- begin
- max := -MaxInt;
- max1 := -MaxInt;
- quantity := 0;
- for i:= 1 to N do
- begin
- write('Input ',i,'. number in order: ');
- readln(number);
- if number > max then
- begin
- max1 := max;
- max := number;
- quantity := 0;
- end;
- if ((number<max)) AND ((number>max1)) then
- begin
- max1 := number;
- quantity := 0;
- end;
- if number = max1 then
- quantity := quantity + 1;
- end;
- writeln('Second biggest number in order is: ',max1);
- writeln('We can found it there: ',quantity,'x');
- repeat until keypressed;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement