Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Pojavljivanje elemenata jednog niza u drugom nizu
program PojavljivanjeuNizu; label kraj; const maximalno=50; type niz=array[1..maximalno] of integer; var a,b,c:niz; i,j,n,m,max:integer; begin read(n); if (n<=0) or (n>maximalno) then goto kraj; for i:=1 to n do read(a[i]); read(m); for i:=1 to m do read(b[i]); for i:=1 to n do begin c[i]:=0; for j:=1 to m do if (b[j]=a[i]) then c[i]:=c[i]+1 end; max:=1; for i:=2 to n do if (c[i]>c[max]) then max:=i; for i:=1 to m do if (b[i]=a[max]) then write(i,' '); kraj: end.
run
|
edit
|
history
|
help
0
Overflow error
hi
Урок 3, задача 8 (1481). Покупка
programme 2
Sss
dsds
Количество пар кр и некр 11 улучшенный алгоритм
pdp-34-onecompiler
Calculatrice 1.0
XEPBAN