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
practica 2 ejercicio 1
1 25 6
test28
Tugas
PrimoPerfecto
Zad 3 в
zadacha3
This
test27
Object Pascal