fork download
copy 
  1. program n;
  2. var a:array[1..15] of integer;
  3. i,k:byte;
  4. max:integer;
  5. begin
  6. for i:=1 to 15 do
  7. 	read(a[i]);
  8. max:=0;
  9. k:=0;
  10. for i:=1 to 15 do
  11. 	begin
  12. 	if a[i]>max then
  13. 		max:=a[i];
  14. 	end;
  15. for i:=1 to 15 do
  16. 	begin
  17. 	if max=a[i] then
  18. 		k:=k+1;
  19. 	end;
  20. write(k);
  21. end.
  22.  
  23.  
  24.  
  25.  
Success #stdin #stdout 0s 336KB
comments (?)
stdin
copy 
20
1
2
3
4
20
6
4
3
20
20
20
1
2
20
stdout
copy 
6
https://ideone.com/BypdYr
language:
Pascal (fpc 3.0.4)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!