rovect6.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 18 行

program vector6;
var v,w:array[1..100] of integer ;
    i,j,n:integer;
begin
write('n=');readln(n);
for i:= 1 to n do
begin
write('v[',i,']=');readln(v[i]);
end;
for i:= 1 to n do
begin
for j:= 1 to n do
if v[i]=v[j] then w[i]:=w[i]+1;
end;
for i :=1 to n do
write('w[',i,']=',w[i]);
readln;
end.