KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
uses crt; var n,i,j,d,k,tam,l,kt:longint;a,b:array[1..100]of longint; begin clrscr; readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do begin d:=0; for j:=1 to n do if a[i]=a[j] then inc(d); if(d>1)then begin for l:=1 to k do if(a[i]=b[l])then kt:=1; if(kt=0)then begin inc(k);b[k]:=a[i];end; end; end; for i:=1 to k do write(b[i],’ ‘); readln; end.
uses crt;
var n,i,j,d,k,tam,l,kt:longint;a,b:array[1..100]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
d:=0;
for j:=1 to n do
if a[i]=a[j] then inc(d);
if(d>1)then begin
for l:=1 to k do
if(a[i]=b[l])then kt:=1;
if(kt=0)then begin inc(k);b[k]:=a[i];end;
end;
end;
for i:=1 to k do
write(b[i],’ ‘);
readln;
end.
program xuathien;
uses crt;
var A:array[1..100] of integer;
n,i,j:integer;
begin
clrscr;
write(‘Nhap so luong phan tu cua day: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);
for i:=1 to n do
begin
write(‘phan tu thu ‘,i,’: ‘);
readln(A[i]);
end;
for i:=1 to n do
begin
B[i]:=1;
for j:=i+1 to n do
if A[i]=A[j] then B[i]:=B[i]+1;
end;
for i:=1 to n do
if B[i]>=2 then write(‘A[i],’ ‘);
readln
end.