cho 1 dãy N số nguyên a1,a2,a3,...,aN.Hãy in ra số lần xuất hiện có các giá trị ai(0<=ai<100) Lưu ý: nhập n (100<=n<10^8) In ra 100 số nguyên dương theo thứ tự lần lượt là số lần xuất hiện của ai trong dãy từ 0 cho đến 99 trong dãy
2 câu trả lời
program cap_so_cong;
uses crt;
var a: array[1..100] of integer;
i, n, k: integer; {i la bien dem, k de luu cap so}
begin
clrscr;
write('N= '); readln(n);
for i:=1 to n do
begin
write('A(',i,')= '); readln(a[i]);
end;
{Bat dau phan kiem tra}
k:=a[2]-a[1];
i:=2;
repeat
i:= i+1;
until (a[i]<>a[i-1]+k) or (i>n);
if i>n then write('Day A la mot cap so cong')
else write('Day A khong phai la mot cap so cong');
readln
end.
program dem_xuat_hien;
var f,g:text;
A:array[1..100000] of byte;
n:integer;
i:byte;
function dem(so:byte):integer;
var j:integer;
begin
dem:=0;
for j:=1 to n do
if A[j]=so then dem:=dem+1;
end; HỌC TỐT!!
5 sao và ctlhn nhé@@
Câu hỏi trong lớp
Xem thêm
