Nhập vào một mảng,in ra màn hình số lần xuất hiện của các phần tử trong mảng(pascal)
Nhập vào một mảng,in ra màn hình số lần xuất hiện của các phần tử trong mảng(pascal)
By Nevaeh
By Nevaeh
Nhập vào một mảng,in ra màn hình số lần xuất hiện của các phần tử trong mảng(pascal)
uses crt;
var a: array[1..100] of integer;
n,i,d,j:integer;
begin
clrscr;
write(‘nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]: ‘); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
d:=a[i];
a[i]:=a[j];
a[j]:=d;
end;
d:=1;
for i:=1 to n do
if a[i]<>a[i+1] then
begin
writeln(a[i],’ => ‘,d,’ lan’);
d:=1;
end
else d:=d+1;
readln;
end.
program xuat_hien;
uses crt;
var A:array[1..1000] of integer;
n,i,d,j:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
d:=A[i];
A[i]:=A[j];
A[j]:=d;
end;
d:=1;
for i:=1 to n do
if A[i]<>A[i+1] then
begin
writeln(A[i],’ : ‘,d);
d:=1;
end
else d:=d+1;
readln;
end.