Tin học 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 th 15/07/2021 By Caroline 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
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. Trả lời
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é@@ Trả lời