Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const k=5;
- var n,s:array[1..k] of integer;
- i,i2,i3:integer;
- begin
- for i:=1 to k do
- read(n[i]);
- for i:=1 to k do
- for i2:=1 to k do
- if n[i]=n[i2] then
- s[i]:=s[i]+1;
- for i:=1 to k do
- if s[i]>i3 then
- i3:=s[i];
- writeln(i3);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement