Advertisement
Guest User

Untitled

a guest
Oct 20th, 2019
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. const k=5;
  2. var n,s:array[1..k] of integer;
  3. i,i2,i3:integer;
  4. begin
  5. for i:=1 to k do
  6. read(n[i]);
  7. for i:=1 to k do
  8. for i2:=1 to k do
  9. if n[i]=n[i2] then
  10. s[i]:=s[i]+1;
  11.  
  12. for i:=1 to k do
  13. if s[i]>i3 then
  14. i3:=s[i];
  15. writeln(i3);
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement